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Tout d’abord, il est de notre devoir 
de vous signaler une erreur dans 
l'annonce des cassettes 99A et 99B, 
à la page 4 du numéro 1 de « 99 
magazine ». Nous vous prions de 
nous en excuser : le programme Di- 
vison se trouve en effet sur la cas- 
sette 99B et non sur la cassette 99A. 


Outre la cassette d'accompagnement 
de ce numéro, la 99-2, qui reprend 
tous les programmes publiés dans ce 
numéro, nous vous proposons une 
nouvelle cassette, la troisième des 
cassettes vendues séparément de la 
revue, la 99C. Après avoir rappelé le 
contenu de ces deux premières cas- 
settes (99A et 99B), nous vous pré- 
sentons la cassette 99C. 


CASSETTE 99 A 


Mineur 
Prêt 
Electronique 


CASSETTE 99 B 


Yahtzee 
Chardef 
Division 
Régression linéaire 


CASSETTE 99 C 


Cette cassette comporte six program- 
mes, afin que vous puissiez nous par- 
donner les petits problèmes que nous 
avons eu lors de ces deux premiers 
numéros : en effet, nous n’avons pas 
toujours pu fournir les articles parus 


dans la publicité de l’Ordinateur Indi- 
viduel. Ces problèmes devraient dis- 
paraître avec notre expérience gran- 
dissante, et une fois nos problèmes 
de personnel résolus. 


Jeu de dames 


Le programme de jeu de dames du 
TI-99 possède un graphisme très soi- 
gné : le damier figure entièrement à 
l'écran, et les pions sont blancs ou 
noirs. Les dames sont représentées, 
allez savoir pourquoi, par un pion 
surmonté d’une sorte de parapluie. 
Sur la droite de l'écran est récapitu- 
lée la séquence des coups de chaque 
joueur depuis le début du jeu. 


Le jeu de Nim 


Le jeu de Nim a trouvé sa célébrité 
grâce au film « l’été dernier à Marien- 
bad ». Ce programme vous laisse le 
choix de définir le gagnant (entre 
l'ordinateur et vous) comme étant 
soit celui qui enlève la dernière allu- 
mette, soit au contraire celui qui évite 
de l’enlever. Il est extrêmement diffi- 
cile à battre, nous y avons passé 
quelques heures bien éprouvantes. 


La division 


Encore une division ? Cette fois-ci, il 
s’agit d'un jeu éducatif: un dessin 
géométrique est représenté à l'écran 
et le manipulateur doit en isoler une 
partie. Mais pas n’importe quelle par- 
tie : il doit respecter un fractionne- 
ment simple du genre « coupe cette 


Casse 


barre en quatre parties égales » ou 
encore «coloris le tiers de ce des- 
sin », etc. 


Isola 


Le jeu d’Isola est moins connu que 
le jeu de dames. Deux rois se trou- 
vent sur leur case de départ de 
l’échiquier. Le joueur doit en premier 
lieu déplacer son roi selon règles des 
échecs (une case à la fois, dans n'im- 
porte quelle direction), puis poser un 
pion où il le désire. Pour gagner, il 
faut soit faire parvenir son roi sur la 
ligne de départ de l’adversaire, soit 
entourer le roi de l'adversaire avec 
les pions que l’on à posés. On ne 
peut passer deux fois sur la même 
case. 


Schmoo 


Schmoo est un petit personnage qui 
se déplace en marchant vers un 
canon. Lorsqu'il s'arrête, le joueur 
doit déterminer le degré d’inclinaison 
et la puissance de l’obus pour l’at- 
teindre. La démarche de Schmoo est 
assez drôle. 


Les robots dans les pièges 


Vous êtes dans une île, poursuivi par 
une troupe de robots. Heureuse- 
ment, l’île comporte un certain nom- 
bre de pièges, et ces idiots de robots 
ne connaissent que la ligne droite 
pour tenter de vous atteindre. Il vous 
est alors facile de les attirer vers les 
pièges afin de les y faire tomber. 


BON DE COMMANDE 


Je désire recevoir la cassette 

[_]99 A : Mineur, Prêt, Electronique 

[_]99 B : Yahtzee, Chardef, Division, Régression linéaire 
[ 199 C : Dames, Nim, Division 2, Isola, Schmoo, Robots 


Ces tarifs comprennent l'envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 


Envoi par avion : nous consulter 


Envoyez ce bon de commande et votre règlement à : 


Editions MEV - 49 rue Lamartine - 78000 Versailles 
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Editorial 


Voici déjà le numéro deux de notre revue: le nombre de lecteurs de “99” augmente régulièrement : 
nous vous remercions de la confiance que vous nous faites ainsi. Nous devons vous adresser nos excu- 
ses pour les quelques cafouillages que nous connaissons encore; nous espérons que ce seront les der- 
niers. 


Plusieurs de nos auteurs sont des enseignants: certains ont été piégés par la douce euphorie des vacan- 
ces et n'ont pu nous livrer leurs articles à temps. L'échéance du Sicob ne nous à pas permis d’attendre 
leurs articles. Pour nous faire pardonner, nous avons mis plein de programmes de jeu dans la revue, sur 
les cassettes 99-2 (cassette d'accompagnement du numéro 2) et 99-C, la troisième cassette séparée que 
nous proposons. 


Dans ce numéro, vous trouverez de très nombreux programmes ludiques ou éducatifs, dont plusieurs 
proviennent du club TiSoft-Home. Didier Bicking a laissé libre cours à son imagination dans un article 
de ‘science fiction” sur l'ordinateur de l’ävenir; il nous transmet aussi un programme d’Othello (ou 
Reversi) et un jeu des carrés. 


Dans le registre musical, Claire Arribet nous donne un splendide canon (très pacifique) de Purcell et 
Georges-Henri Pelard présente sa version du Simon à la fois en TI Basic et en Extended Basic. Les 
joueurs pourront encore se défouler avec les contributions de Edouard Jouan (le Mastermind et les 
Astéroïdes), la Bataille Navale d’Alain Dupontou la Grenouille d'Alexandre Duback. 


Les anxieux pourront se rassurer ou s’angoisser, selon la date, avec le programme de Biorythme amené 
par Thomas Coppens qui analyse aussi pour nous TI-Writer. Sophie nous explique l'apport des spri- 
tes’ au Logo du TI-99. Jean Sahal nous aide à mieux utiliser le magnétophone pour la sauvegarde des 
fichiers et des programmes. Enfin, Claude Lamy analyse pour nous le Crocodile Savant et Chicken 
Helper. Une nouvelle rubrique, Micro-informations, vous met au courant des nouveautés. 


Les lecteurs qui ont des articles et/ou des programmes originaux à nous envoyer peuvent le faire, si 
possible en envoyant les programmes sur cassette ou disquette. Les articles sont rétribués au tarif de 150 
francs la page imprimée. Nous sommes à la recherche de contributions originales. 


Nous vous rappelons que la cassette d'accompagnement du numéro 1, ainsi que toute autre cassette, 
peut être acquise séparément. Enfin si, comme nous l'espérons, vous appréciez 99”, abonnez-vous et 
faites connaître notre revue : le service que nous pouvons vous rendre est d'autant plus grand que vous 
serez nombreux. En tous cas, bonne lecture et amusez-vous bien avec tous les programmes de ce 
numéro 2 ! 


Enfin, nous sommes heureux de vous faire savoir que les petites annonces provenant de particuliers 
seront gratuites dans « 99 magazine ». Nous n'en avions pas dans le numéro 1, par la force des choses... 
Nous attendons par conséquent vos annonces éventuelles. En ce qui concerne le Courrier des Lecteurs, 
nous nous efforcerons de répondre au fur et à mesure, dans la limite de nos movens. N'oubliez pas à 
cet égard de joindre une enveloppe timbrée pour la réponse ! 


Hervé Thiriez 


L 
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ones o cet os bobos essvrs recense se cons pecosesseseresencresronsbessesteoresercssssseseeseoéessessésseboesererereereseeseceseesessesessesses 


TI 99/4A fSS RO TENTE LU 


CHOISISSEZ 
LE PROGRAMME 


BON DE COMMANDE 


[tarifs au 1/9/1983) 
Ü Je commande les logiciels ou produits suivants 


[ Je désire seulement une documentation sans engagement de ma part 
P.U. TTC 
Référence 


T1 99/4 PHC 004 1.790,00 | Hustle 20 PHM 3034 296,00 
Câble cassette PHA 2000 150,00 | Invaders 21 PHM 3053 296,00 
Câble moniteur RS 80 KI 150,00 | Munchman 22 PHM 3057 377,00 
Interface Pal PHA 2036 724,00 | Othello 23 PHM 3067 377,00 
Interface RVB 724,00 | Parsec 24 PHM 3312 377,00 
Paire de manettes de jeu PHP 1100 255,00 | Tombstone city 25 PHM 3052 296,00 
Synthétiseur de parole PHP 1500 712,00 | Tunnel of doom 26 PHM 3055 296,00 
Mini mémoire 4 K PHM 3058 990,00 | Video games 27 PHM 3018 229,00 
Interface Secam couleur Ordinarion 768,00 | Video gamesil 28 PHM 3025 229,00 
Magnétophone à cassette Texas PHM 2700 389,00 | Wunpus 29 PHM 3023 296,00 
PÉRIPHÉRIQUES INTÈGRES {avec boîte périph.] Yahtzee 30 PHM 3039 296,00 
Boîte périphérique PHP 1200 2.000,00 | Zerozap 31 PHM 3036 229,00 
Contrôleur de disquettes PHP 1240 1.750,00 
Lecteur de disquette PHP 1250 3.350,00 | CASSETTES DE JEUX {utilisables uniquement 
Extension 32 K PHP 1260 1.600,00 | avecle module aventure PHM 3041T) 
Interface RS 232 C PHP 1220 1.385,00 | Adventure Land 32 PHT 6046 229,00 
Carte P code PHP 1230 2.210,00 | Ghost Town 33 PHT 6053 229,00 
Lecteur de disquette extérieure PHP 1850 4.014,00 | Golden voyage 34 PHT 6047 229,00 
Mission impossible 35 PHT 6051 229,00 
LANGAGES Pirate 38 PHT 6043 229,00 
Basic étendu 49 PHM 3026 1.012,00 | Pyrof doom 39 PHT 6052 229,00 
Assembleur 50 PHM 3055 1.133,00 | Savage Island 40 PHT 6054 229,00 
Logo 51 PHM 3040 1.012,00 | Strange Odyssey 41 PHT 6050 229,00 
Manuel assembleur (seul) 27500 | The Count 42 PHT 6049 229,00 
MODULES D'ORGANISATION PERSONNELLE Woodo Castle 43 PHT 6048 229,00 
Gestion de rapports 52 PHM 3044/FR 512,00 | Mystery Fu House 57 PHT 6051 229,00 
Gestion de fichiers 53 PHM 3013/FR 512,00 
Statistiques | 54 PHM 3014/US 647,00 | LOGICIELS DIVERS 
Fichier d'adresses (disk) 55 PHD 5001/FR 756,00 | Music Maker 44 PHM 3020/FR 379,00 
Conseil financier 56 PHT 6003/FR 101,00 | Speech Editor 45 PHM 3011 296,00 

Oldies | 36 PHT 6015 229,00 
MODULES ÉDUCATIFS Oldies II 37 PHT 6017 229,00 
Addition Soustraction | PHM 3027/US 379,00 
Addition Soustraction Il PHM 3028/US 379,00 | CASSETTES D'AIDE À LA PROGRAMMATION 
Multiplication | PHM 3029/US 379,00 | Aide à la programmation | 46 PHT 6004 101,00 
Early Reading PHM 3015/US 379,00 | Basic par soi-même 47 PHT 6007/FR 101,00 
Begin Grammer PHM 3003/US 229,00 Basic étendu par soi-même 48 PHT 6019/FR 101,00 
Nombre magique PHM 3004/FR 229,00 
Early Learning PHM 3003/US 229,00 | LOGICIELS SUR DISQUES 

Aide à la programmation II 01 PHD 5005/FR 229,00 
MODULES DE JEU Maths 02 PHD 5006/FR 377,00 
Alpiner PHM 3056 377,00 | Électricité 03 PHD 5008/FR 377,00 
A-Maze-ing PHM 3030 296,00 | Aide à la programmation Il 
Attack PHM 3031 296,00 | {extended basic) 04 PHD 5012/FR 229,00 
Aventure PHM 3041/T 377,00 | Résistance des matériaux 05 PHD 5016/FR 377,00 
Black-Jack PHM 3033 296,00 | Pascal UCSD Compiler 06 PHD 5063/US 1.240,00 
Blasto PHM 3032 296,00 | UCSD P System assembler/Linker 07 PHD 5064/US 944,00 
Car Wars PHM 3054 296,00 | UCSD P System Editor/files/utilites 08 PHD 5065/US 756,00 
Chisholm PHM 3054 296,00 
Connect 4 PHM 3038 296,00 | Légendes: 
Echecs PHM 3038/FR 510,00 | PHM: Logiciel sur module 
Football PHM 3024 296,00 | PHT : Logiciel sur cassette 
Hangmann PHM 3037 296,00 | PHD: Logiciel sur disquette 























Total TTC : 
Nom - 





Participation aux frais de port + 20 F 
Prénom 





Ci-joint mon règlement par : 
CCPO CBC Mandat D Adresse 





La Règle à Calcul Signature 

65/67 Bd St Germain 75005 Paris 

Tél. : 325.68.88. Télex 220 064F ETRAV/1303 RAC {pour les moins de 18 ans signature des parents) 
RC Paris B 702005 547 





Micro-Monde Logo : les lutins 


Vous avez pu lire, dans le numéro 1 
de ‘99 magazine”, un article très do- 
cumenté brossant un panorama ra- 
pide des possibilités et de l'intérêt de 
la version LOGO disponible sur le TI 
99/4A. Nous vous proposons, cette 
fois-ci, une promenade dans un 
monde peu connu, celui des lutins 
(sprites). 


Seul le TI-99 offre actuellement cette 
possibilité : les possesseurs d'Apple 
peuvent se bricoler une carte à lutins, 
en maniant le fer à souder et à partir 
d’un schéma donné dans le Spécial 
LOGO de Byte en Août 82 … à 
moins que, paresseux et fortunés, ils 
ne préfèrent faire un voyage express 
aux Etats-Unis pour acheter le Sprite- 
Board de Krell. 


Les utilisateurs du Basic Etendu ou 
de l’assembleur du TI 99/4A ont 
peut-être déjà eu la curiosité d’utiliser 
les lutins. Les domaines d’application 
de ce micro-monde concernent le 
mouvement et la couleur, par exem- 
ple la modélisation en dynamique 
(voilà qui devrait intéresser les pro- 
fesseurs de physique), ou l'animation 
et, pourquoi pas, les jeux vidéo. 
C'est une occasion privilégiée de 
s'exercer à la simulation et aux effets 
de trucage. 


Avoir un lutin 
et lui parler 


Gérard Bossuet, un des pionniers du 
LOGO en France, définit un lutin 
comme ‘un petit être très pudique 
qui ne consent à se montrer que dé- 
cemment vêtu”. D'une manière 
moins poétique, mais probablement 
plus parlante pour les adultes, nous 
décrirons un lutin comme un objet 
disponible sur l'écran de visualisa- 
tion, auquel on peut fournir un cer- 
tain nombre d’attributs tels que 
forme, couleur, emplacement et, 
éventuellement, cap et vitesse. 
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L'appel d’un lutin 


Il convient tout d’abord d'attirer l’at- 
tention d’un lutin, en quelque sorte 
d'établir une espèce de communica- 
tion téléphonique avec lui. On dis- 
pose de 32 lutins, qui sont désignés 
par leur numéro. Par exemple : 


APPELLE LUTIN 1 


met l'utilisateur en relation avec le 
premier lutin. Remarque: chacune 
des instructions, comme celle qui 
précède; doit être validée en ap- 
puvant sur la touche ENTER pour 
être exécutée par la machine. Nous 
ne le mentionnerons plus. 


Si, au cours du dialogue avec l’ordi- 
nateur, vous avez oublié le numéro 
du lutin avec lequel vous conversez, 
vous pouvez retrouver facilement 
cette information en tapant : 


AFFICHE QUI 
la réponse vous sera alors donnée : 
LE LUTIN 1 


Cette indication est parfois fort utile. 
Le choix d’une forme 


On attribue au lutin une forme, qui 
sera en général dénotée par un nom- 
bre : 


FIXEFORME 3 


L'instruction précédente donne la 
forme 3, une forme de fusée, au 
lutin numéro 1. 


Attention ! Le numéro d'appel du 
lutin n’a aucun lien a priori avec son 
numéro de forme, de la même façon 
que votre numéro de téléphone n’a 
rien à voir avec votre numéro de Sé- 
curité Sociale ou l’immatriculation de 
votre voiture. 


Cinq formes ‘préfabriquées” sont 


disponibles d’origine sur votre ordi- 
nateur; elles portent les numéros 1 à 


Figure 1 : formes de 1 à 5 


Sophie 


5 ; ce sont les mêmes formes qui dé- 
finissent les lutins initiaux en Basic 
Etendu. Les 27 autres formes possi- 
bles sont définissables par vous, 
comme nous le montrerons plus loin 
dans cet article. 


Le choix d’une couleur 


Après avoir donné une forme à notre 
lutin (éventuellement l’une des cinq), 
il nous reste à lui attribuer une cou- 
leur. Seize couleurs différentes peu- 
vent être utilisées, que l’on peut in- 
différemment désigner par un code 
numérique ou par leur nom. 


Transparent 8 Roux 
Noir 9 
Vert 10 
Tilleul 11 
Azur 12 

_Ciel 13 
Rouge 14 


Bleu 15 


Orange 
Jaune 
Citron 
Olive 
Violet 
Gris 


Blanc 


SJ OO OO PB © NO mm © 


NDLR : c’est tout à fait par hasard 
que le Citron suit le Tilleul dans ce 
tableau. 


Pour colorer en rouge la fusée avec 
laquelle nous sommes actuellement 
’en communication”, il suffit de 
taper soit : 


FIXECOULEUR :ROUGE 
soit : 
FIXECOULEUR 3 


Nous verrons dans un article ultérieur 
à quoi correspond le caractère ”:” 
précédant chaque nom de couleur. 


Le déplacement du lutin 


En tapant CENTRE”, nous ame- 
nons maintenant au centre de l'écran 
notre fusée habillée en rouge. 





En conclusion, nous avons suivi la 
séquence suivante : 


APPELLE LUTIN 
Met le ler lutin en activité 


FIXEFORME 3 
Lui donne la forme 3 (fusée) 


FIXECOULEUR : ROUGE 
Peint la fusée en rouge 


CENTRE 
Amène le lutin au centre 


Nous pouvons maintenant tester di- 
verses instructions de déplacement, 
illustrées de gauche à droite sur la fi- 
gure 2 : 


AVANCE 50 
fait un bond vers le haut de l’écran 
DROITE 90 


n’a pas d'effet immédiat visible ; mais 
si nous donnons maintenant l’ordre 


AVANCE 70 


nous constatons que le bond s’effec- 
tue maintenant vers la droite de 
l'écran. 


Figure 2 L 
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CENTRE 


Ce comportement surprendra les uti- 
lisateurs habitués à la tortue, qui s’at- 
tendent à voir le lutin changer 
d'orientation avec DROITE 90”. 


Toutefois, ces déplacements par 
petits bonds ne sont pas très satisfai- 
sants pour rendre le mouvement 
d’une fusée, qu’on souhaiterait plutôt 
voir se déplacer de façon plus régu- 
lière. Ceci est possible, en attribuant 
au lutin une vitesse de déplacement : 


FIXEVITESSE 10 


Et voilà la fusée en marche ! Le seul 
inconvénient, c’est qu’elle se déplace 
actuellement comme un crabe, 
s’échappant vers la droite de l'écran 
pour réapparaître aussitôt à la gau- 
che de l'écran. N'oublions pas que 
nous avons précédemment, avec 
l'ordre DROITE 90”, tourné le ”re- 
gard” de notre lutin dans cette direc- 
tion. Nous pouvons lui pointer le nez 
en l'air de nouveau, soit avec GAU- 
CHE 90”, soit en utilisant un repé- 
rage absolu avec : 


AVANCE 50 


FIXECAP 0 


Le ”’cap” est l'angle que fait le re- 
gard invisible du lutin avec le Nord, 
mesuré en degrés et compté positive- 
ment dans le sens des aiguilles d’une 
montre. Ainsi, quand le lutin 

pointe” vers le haut, les ordres 
"GAUCHE 90”, "DROITE -90” 
(pour les gens compliqués), DROITE 
270”, "FIXECAP 270” et "’FIXECAP 
-90” sont-ils équivalents: tout à 
l'Ouest ! 


Avec le cap O, la fusée s'élève à pré- 
sent d’une manière plus conforme à 
la réalité, disparait en haut de l’écran 
et revient par le bas. 


Modification des attributs 


Les attributs donnés au lutin peuvent 
à tout moment être modifiés. On 
peut ralentir celui-ci avec : 


FIXEVITESSE 1 
ou l’accélérer avec : 
FIXEVITESSE 100 


Quelle est la vitesse maximale d’un 
lutin ? Vous pouvez la trouver par tâ- 


1 


| 
| 
| 
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DROITE 90 


tonnements, et grâce à un peu de ré- 
flexion. Quand cette vitesse maxi- 
male est dépassée, vous obtenez le 
message suivant : 


FIXEVITESSE N’AIME PAS RECE- 
VOIR … 


suivi du nombre que vous avez es- 
savé. 


La marche arrière est possible avec 
par exemple : 
FIXEVITESSE -5 


Comment arrêtez-vous le lutin? A 
vous de jouer … 


De la même manière que nous 
avons changé la vitesse, nous pou- 
vons, d'un coup de baguette magji- 
que, modifier la forme d’un lutin : 


FIXEFORME 1 


pour transformer la fusée en avion 
ou modifier la couleur : 


FIXECOULEUR 13 


Nous voici maintenant avec un avion 


mauve, qui se comporte plutôt come 
un hélicoptère en train d’atterrir ! 


Si nous ne nous rappelons plus pré- 
cisément des ordres que nous avons 
donnés au lutin, nous pouvons facile- 
ment retrouver ces informations : 


AFFICHE CAP 
AFFICHE VITESSE 
AFFICHE FORME 
AFFICHE COULEUR 


Création de formes 
de lutins 


Délaissons à présent les engins aéro- 
nautiques, et cherchons d’autres do- 
maines d'inspiration. Pourquoi ne 
pas donner à un lutin la forme d’un 
chat ? Pour cela, il nous faut d’abord 
déterminer le numéro de code que 
nous allons attribuer à cette nouvelle 
forme (supérieur à 5). Prenons par 
exemple le numéro 10 et tapons : 


AVANCE 70 


CREEFORME 10 


Là, l'écran change radicalement d’as- 
pect : le fond, qui avait une couleur 
bleu ciel, est devenu vert; de plus, 
une grille de 16 carreaux sur 16 oc- 
cupe la presque totalité de la page. 
Le petit avion mauve, quant à lui, 
continue à se promener imperturba- 
blement de haut en bas. 


Dans le coin supérieur gauche de 
l'écran clignote un petit carré noir: 
ce curseur mobile va nous permettre 
de dessiner la forme du lutin. Pas be- 
soin ici de se triturer les méninges 
(comme en Tl-Basic) à calculer en 
hexadécimal. Il suffit de déplacer le 
curseur dans les quatre directions 
cardinales à l’aide des touches flé- 
chées : 


e E vers le haut (Elever) 


© S vers la gauche (Sinistre : pas en 
politique, en latin) 


®e D vers la droite (Droite) 


e X vers le bas (mort aux X ?) 
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Remarquez que,,comme ces touches 
portent sur leur face avant des flè- 
ches de direction, les moyens mné- 
motechniques indiqués ci-dessus ne 
sont pas indispensables. 


En se déplaçant, le curseur ne laisse 
pas de trace … sauf si vous appuyez 
sur la touche FCTN : dans ce cas, en 
quittant une case, le curseur y laisse 
un carré noir. Vous allez voir que 
c'est véritablement un jeu d’enfant 
que de dessiner ce petit chat. 


Figure 3 - forme 10 


Quand vous avez fini, appuyez sur 
"FCTN 9” pour enregistrer cette 
forme dans la mémoire de l’ordina- 
teur. Elle y restera disponible tant 
que vous n'aurez pas éteint l'appareil 
ni quitté LOGO. Si vous désirez 
conserver cette forme pour une utili- 
sation ultérieure, il suffit de l’enregis- 
trer sur une cassette ou sur une dis- 


Figure 4 : avant 


Si vous avez mal reproduit le dessin 
prévu, rien de plus simple que d’en 
modifier la forme. Il suffit de repas- 
ser, sans maintenir la touche FCTN 
enfoncée, sur les cases que vous dé- 
sirez blanchir”. Il vous arrivera peut- 
être aussi de ”’perdre” le curseur, au 
début de l’utilisation de l’éditeur de 
formes, tant que vous ne serez pas 
habitué à la structure torique de la 
grille. En effet, si l’on quitte une ligne 
par la droite, le curseur revient par la 
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gauche (voir figure 4) après avoir, à 
toute vitesse, ”’fait le tour par l’arrière 
de l'écran”. 


Figure 4 : après 


Ce comportement inattendu du cur- 
seur provoque toujours un effet de 
surprise au début, chez les adultes 
comme chez les enfants. Mais on tire 
très vite parti de cette particularité 
pour simplifier certains déplacements, 
en évitant ainsi de repasser sur une 
partie du dessin déjà achevée. 


Figure 5 : après 


Maintenant que notre dextérité 
mente, nous pouvons réaliser, 
le numéro 15, la forme suivante : 


Nous sommes enfin prêts à passer à 
l'étape suivante. 


Figure 6 : forme 15 


Création d’un 
dessin animé 


Nous allons reproduire sur l'écran un 
paysage  rudimentaire comportant 
quelques arbres et un soleil. Ensuite, 
nous y ajouterons un avion (qui vole, 
bien sûr!), puis nous mettrons le 
chat dans un coin et nous lui donne- 
rons des instructions pourqu'il aille 
s'installer dans son panier. 


Mais, me direz-vous, le chat que 
nous venons de créer est un chat 
assis ! D’accord, alors créons vite un 
chat debout sous la forme 11. 


Figure 7 : forme 11 

Prêt ? Allons-y ! Commençons par le 
soleil. 

APPELLE LUTIN 3 Troisième lutin 
FIXEFORME 4 Forme de balle 
CENTRE Milieu de l’écran 
AVANCE 80 Monte de 80 
GAUCHE 90 Quart de tour gauche 
AVANCE 110 Va en haut à gauche 


FIXECOULEUR 10 [Le soleil est 
jaune 


Nous avons maintenant un beau so- 
leil doré dans le coin supérieur gau- 
che de l'écran. Occupons-nous à 
présent de l'avion, qui est pour le 
moment toujours en mouvement sur 
l'écran. 
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APPELLE LUTIN Changement de 
lutin ; 

FIXEVITESSE 0 Arrêtons-le un ins- 
tant 

CENTRE Milieu de l'écran 
AVANCE 70 Monte de 70 
FIXECAP 90 Pointe vers la droite 
FIXEVITESSE 5 Avance vers la 
droite 


Vous remarquerez que, lorsque 
l'avion passe aux abords du soleil, il 
cache une partie du lutin soleil, ce 
qui est conforme à la réalité: par 
rapport au spectateur, l’avion est de- 
vant le soleil. 


Plaçons les arbres dans notre pay- 
sage. 


APPELLE LUTIN 7 Changement 
de lutin 


FIXEFORME 3 La forme d’une 
fusée 


FIXECOULEUR 1 La fusée est 
noire 


CENTRE 
FIXECAP -90 Direction à gauche 
AVANCE 50 Déplacement de 50 


Une fusée noire ? Nous voulions un 
arbre ! Patience 

APPELLE LUTIN 6 Nouveau lutin 
FIXEFORME 4 Une balle 
FIXECOULEUR 2 .…. verte 
CENTRE 
FIXECAP 270 
AVANCE 50 
FIXECAP 0 
AVANCE 14 


Comme ”-90” 
Sur la fusée 
Pointe en haut 
Monte de 14 
Et voilà un arbre ! En voulez-vous un 
autre ? 

APPELLE LUTIN 10 

FIXEFORME 3 

FIXECOULEUR 8 

CENTRE 

AVANCE 10 

DROITE 90 

AVANCE 30 


Voici un tronc roux … 


APPELLE LUTIN 9 
FIXEFORME 4 
FIXECOULEUR 12 


CENTRE 

AVANCE 24 
DROITE 90 
AVANCE 30 


et maintenant la frondaison est en 
place. 


APPELLE LUTIN 15 
FIXEFORME 15 
FIXECOULEUR 14 
CENTRE 

RECULE 20 
DROITE 90 
AVANCE 70 


Le panier, gris, est installé dans le 
coin inférieur droit de l’écran. Nous 
avons aussi appris à utiliser un nou- 
vel ordre, "RECULE”. 


Jusqu'à présent, nous avions seule- 
ment dialogué avec l'ordinateur; en 
fait, nous l’avons ”’piloté” en lui don- 
nant des ordres. Ici, nous allons in- 
nover, en lui enseignant quelque 


chose. Tapons : 
POUR MINOU 


Quand vous appuyez sur ENTER, 
vous obtenez comme tout à l'heure 
un écran vert (une page verte, en 
fait). Cette couleur signifie que l’on 
est en mode éditeur, autrement dit 
que l'ordinateur est en train d’ap- 
prendre quelque chose. Cette page 
verte comporte, sur la première ligne, 
"POUR MINOU”, suivi d’un petit 
trait rouge, et, à la.ligne suivante, le 
mot FIN”. Appuyez à nouveau sur 
la touche ENTER, cela décale le mot 
FIN d’une ligne vers le bas, ce qui va 
nous permettre d’incorporer une à 
une les instructions suivantes : 


APPELLE LUTIN 20 

FIXEFORME 11 

FIXECOULEUR 1 

CENTRE 

FIXECAP 105 

REPETE 72 AVANCE 1 
FIXEFORME 10 

FIXEXY 72 (-20) 

Chaque fois que vous avez appuyé 
sur ENTER, le mot FIN est descendu 
d’une ligne. Maintenant, appuyons 
sur ”FCTN 9”. Nous retrouvons la 


page bleue, mais de chat, pas la 
moindre trace ! 


Comme il y a beaucoup de texte sur 
l'écran, et que tout cela n’a pas l'air 


bien net, tapons ”EFFACEECRAN” 
(tel quel, en un mot avec deux ”E” 
au milieu). Tout le texte disparait, 
mais les lutins ne sont pas affectés 
par cet ordre. 


Tapons maintenant ’MINOU”. Ca y 
est, le chat arrive sur l’écran, se di- 
rige tranquillement vers son panier, 


et s’y installe confortablement. Pour 


un peu, on s’attendrait à l’entendre 
ronronner … 


Pour vous permettre d'utiliser 
MINOU à plusieurs reprises (les pre- 
mières fois, on ne s’en lasse pas), 
préparez donc une procédure EN- 
CORE : 


POUR ENCORE 
APPELLE LUTIN 20 
FIXECOULEUR 0 
CENTRE 

FIN 


Attention : le mot FIN est déjà sur 
l'éditeur; il ne faut donc pas l’entrer. 
Cette procédure, quand on l’exécute 
en tapant ENCORE” … fait dispa- 
raître le chat, un véritable tour de 
magie ! Il suffit alors de taper 
"MINOU” à nouveau pour retrouver 
notre chat se dirigeant vers son pa- 
nier. 


Plusieurs lutins à la fois 


Jusqu'ici, nous nous sommes tou- 
jours adressés aux lutins l’un après 
l’autre. Mais, parfois, on souhaite agir 
simultanément sur plusieurs lutins. 
Imaginons par exemple qu’un vilain 
garnement vienne glisser une plen- 
che à roulettes sous le panier du chat 
et lui donne une bonne poussée ! Il 
nous faut tout d’abord la planche à 
roulettes : 


CREEFORME 10 


Voici le dessin à reproduire : 


Figure 8 : forme 12 
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Une fois le dessin terminé, revenons 
en mode dialogue avec FCTN 9”, 
puis lançons-nous : 


POUR BOUGE 
APPELLE LUTIN 5 
FIXEFORME 12 
FIXECOULEUR 6 
CENTRE 

FIXEXY 70 (-36) 
APPELLE [5 10 20] 
FIXECAP -90 
FIXEVITESSE 3 
FIN 


Ici, nous avons demandé aux trois 
lutins de faire la même chose; mais 
on peut également donner à chacun 
des instructions différentes en fonc- 
tion de son code (son numéro de 
téléphone”). 


Bien sûr, il s’agit là d’un dessin 
animé rudimentaire : c’est à peu près 
le genre de réalisation à laquelle 
aboutissent des élèves provenant des 
toutes premières années de l’école 
primaire, en une dizaine d’heures, 
sans l’aide d’adultes. 


Passe-temps ou activité 
éducative ? 


J'entends déjà d'ici des commentai- 
res peu enthousiastes tels que Tout 
ça, c’est bien joli, mais ce n’est pas 
sérieux. Nous n’envoyons pas nos 
enfants à l’école pour qu’ils y per- 
dent leur temps à de telles baliver- 
nes !/”. Peut-être faut-il souligner tout 
le travail pédagogique qui entoure 
une réalisation de ce type. 


Construction de formes 


La construction de formes fournit des 
activités qui se rattachent à une par- 
tie importante (tant par le volume 
que par la qualité des connaissances 
à maîtriser) du programme de Ma- 
thématiques du Cours Préparatoire : 


e utilisation de la comptine des 
nombres pour effectuer un dénom- 
brement de carreaux à noircir, lors- 
que les enfants recopient à l'écran 
une forme qu'ils ont préalablement 
dessinée sur papier ; 


e distinction entre le comptage des 
carreaux et le comptage des bords 
de carreaux (vous vous souvenez des 
fameux problèmes des piquets et des 
intervalles entre piquets) ; 
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e spatialisation : au-dessus, au-des- 
sous, à droite, à gauche, en haut, en 
bas, près, loin, … 


e addition et soustraction : si j’ai six 
carreaux noirs sur une rangée, il doit 
m'en rester dix blancs (total de 
seize), sinon je ferais bien de re- 
compter … 


Création de scénario 


La création du scénario que l’on va 
réaliser à l’écran fait travailler des no- 
tions extrêmement diverses liées au 
récit, à la chronologie, aux relations 
dans l’espace (perspective par exem- 
ple, au moins au sens de la succes- 
sion ordonnée de plusieurs plans, 
correspondant à des profondeurs 
plus ou moins grandes dans le 
champ). 


Prise en compte de l’espace 


Le positionnement des différents élé- 


| ments du conte amène aussi à d’au- 


tres types de prise en compte de l’es- 
pace : utiliser la totalité de la surface 
de l’écran pour y disposer agréable- 
ment les divers lutins ne se réussit 
pas du premier coup. Il y aura beau- 
coup de tâtonnements, des essais, 
des modifications,  l’apprentissage 
d’une technique de résolution par 
approximations successives. Les va- 
leurs à donner pour la vitesse des 
lutins en mouvement sont l’occasion 
d’une sensibilisation à la comparai- 
son de nombres (pour les plus âgés, 
ce sera aussi l'observation de vitesses 
apparentes et réelles d'objets physi- 
ques). 


Alors, effectivement, l’instituteur ou 
l'institutrice dont les élèves préparent 
un tel dessin animé ne leur ”’ensei- 
gne” rien, au sens où il ne transmet 
pas de connaissances prédétermi- 
nées, sous la forme d’un cours direc- 
tif. Et pourtant, les élèves apprennent 
beaucoup de choses tout en 
éprouvant du plaisir, ce qui surpren- 
dra peut-être ceux pour qui l’ensei- 
gnement doit forcément avoir un as- 
pect rébarbatif. 


Il ne s’agit pourtant pas d’une école 
de la facilité, et la mise au point d’un 
projet par les élèves leur demande 
patience, effort et ténacité. Mais à 
quoi sert l'enseignant dans un tel 
cadre, et ne pourrait-on à la limite 
s'en passer, et imaginer des écoles 
où trois cent élèves passeraient leurs 
journées sur autant d'ordinateurs in- 
dividuels ? 


À notre sens, la présence de l’ensei- 
gnant demeure irremplaçable : son 
rôle n’est pas tant celui d’un trans- 
metteur de connaissances (depuis 
des années déjà, les connaissances 
sont accessibles en dehors de l'Ecole, 
grâce aux bibliothèques, à la télévi- 
sion, …) que celui d’une personne- 
ressource, capable de favoriser le 
plein épanouissement des capacités 
de chacun, c’est-à-dire d’amener 
chaque élève le plus loin possible 
dans son propre parcours sur le che- 
min du savoir. 


NDLR : la plupart des ordres du 
LOGO possèdent une définition 
abrégée. Ainsi, taper ”AV” a le 
même effet que de taper 
AVANCE”. Afin de préserver la 
clarté du texte, nous n'avons pas fait 
apparaître les abréviations dans cet 
article d'initiation, celles-ci pouvant 
être trouvées sans difficulté dans la 
documentation du LOGO. 


Sophie est le pseudonyme d’un 
groupe de membres de l’Association 
G.R.E.P.A.C.IF.IC. qui vous propo- 
seront, dans les numéros à venir, de 
parcourir quelques aspects de l’ap- 
proche LOGO, en offrant des pré- 
sentations générales, comme dans ce 
numéro, ainsi que des témoignages 
vécus. 


G.R.E.P.A.C.IF.IC. (Groupe de Re- 
cherche et d'Etudes pour une Prati- 
que Active et Coordonnée de l’Infor- 
matique en Formation Initiale ou 
Continue) est une association sans 
but lucratif (loi de 1901) dont le but 
principal est l’établissement de liens 
de communication entre les person- 
nes (chercheurs, enseignants, indus- 
triels, parents, .) intéressées par 
l'approche LOGO. 


L'association assure la diffusion d’in- 
formations concernant l'approche 
LOGO. Les cahiers PACIFIC, de pé- 
riodicité et volume variables, consti- 
tuent des témoignages d'activités 
menées sur le terrain (compte-rendus 
d’expérimentation, mémoires de re- 
cherche, ..). Les Documents de Tra- 
vail sont destinés à alimenter la ré- 
flexion sur des thèmes plus 
ponctuels, souvent encore au stade 
du défrichage. 


L'association organise des ateliers 
d'initiation à l'approche LOGO), prin- 
cipalement durant les vacances sco- 
laires, mais le cas échéant en ré- 
ponse à une demande précise, sur 
un thème spécifique ou pour un or- 
ganisme particulier. 


L'association entretient des relations 
avec les équipes de recherche LOGO 
de nombreux pays étrangers. 
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La bataille navale 


Alain Dupont 


Le programme que je vous présente 
ici est une version adaptée pour TI- 
99 du jeu bien connu de la Bataille 
Navale. Ici, l'ordinateur n’est pas un 
adversaire : il dispose les navires, ré- 
clame les tirs et en présente les 
effets. 


On commence, bien entendu, par ef- 
facer l’écran (ligne 100), puis on lui 
donne une couleur (ligne 110) et on 
détermine la couleur des caractères 
qui seront imprimés (lignes 120 à 
140). On marque ensuite le titre. 
Deux méthodes sont possibles. La 
première consiste à le marquer au 
bas de l’écran par un ordre PRINT et 
à le faire monter au milieu de l'écran 
par une suite d'ordres PRINT vides 
de texte. 


J'ai choisi la deuxième méthode qui 
me semble plus élégante. Elle 
consiste à composer directement le 
titre au milieu de l’écran au moyen 
d’une série d'ordres CALL HCHAR. 
Ainsi, la ligne 110 dispose la lettre 
”B” sur la ligne numéro 11, colonne 
10 de l'écran, la ligne 120 dispose la 
lettre ”’A” sur la ligne 11, colonne 
11, etc. La ligne 230 dispose les 
deux ”L’” du mot BATAILLE”. Le 
mot ’NAVALE”, quant à lui, est écrit 
à partir de la ligne 15, colone 18 
(lignes 250 à 300). 


Les lignes 310 à 330 ne posent pas 
de problème particulier : l’enfonce- 
ment de n'importe quelle touche 
donne la valeur 1 à la variable 
ETAT, ou la valeur -1 si la touche 
reste enfoncée. Dans chacun de ces 
deux cas, le programme est envoyé à 
la ligne 370. 


L'exposé des règles (lignes 370 à 
420) est fait par une impression 
selon la première méthode : cela au- 
rait été trop long de procéder comme 
pour le titre. Mais si vous y tenez, 
vous pouvez toujours modifier cette 
partie du programme. Comme tou- 
jours en informatique, il n’existe pas 
de solution unique à un problème 
donné... 


ÉTÉ SSS ESS SS LES S 
# BATAILLE * 
* NAVALE # 
SES S EST ESS ESS. 


COPYRIGHT 99 MAGAZINE 


2, 


SN AT 


VC 


ADI 
2 


Intervient ensuite une phase d’initiali- 
sation. Je ne vais pas ici vous la dé- 
tailler entièrement, mais seulement 
commenter certaines des procédures 
que j'ai utilisées. Remarquez en pre- 
mier lieu les lignes 510 et 520. L’ins- 
truction OPTION BASE 1 concerne 
les tableaux de variables. Si, comme 
dans la ligne 520, on dimensionne 
un tableau MAT(9,9), les lignes et 
colonnes de ce tableau sont numéro- 
tées de 1 à 9, c’est-à-dire que ce ta- 
bleau pourra comporter 81 valeurs 
différentes. Si j'avais écrit OPTION 
BASE O (ou si je n'avais pas mis 
cette ligne 510), alors la première 
ligne et la première colonne du ta- 
bleau auraient été numérotées O0, ce 
qui est quand même moins clair 
qu’une numérotation commençant 
par 1. Il en va de même pour tous 
les autres tableaux du programme, 
tant que l'instruction OPTION BASE 
n’est pas réutilisée. 


L'ordinateur place ensuite un navire 
vertical de trois cases, puis un navire 
horizontal de même valeur, en s’as- 
surant qu’il reste toujours une dis- 
tance d’au moins une case entre les 
deux navires. De la même manière, il 
place les quatre vedettes d’une case 
chacune, distantes d'au moins une 
case entre elles ou avec les navires. 
Enfin, il construit le diagramme dans 
lequel le joueur va envoyer ses tirs. 


COMMANPANT !?.. 


SOUS-MARIN COULE. |! 


S sit 1. 


boue u DS € & 





Pour demander le numéro de ligne 
et celui de la colonne dans lesquelles 
le joueur veut tirer, j'ai utilisé là en- 
core la deuxième méthode d’impres- 
sion, ce qui permet de maintenir les 
images fixes à l’écran. Sans cela, le 
diagramme aurait fini par disparaître 
en haut de celui-ci, ce qui aurait pré- 
senté certains inconvénients. 


Enfin, l’analyse des tirs et l'affichage 
des résultats ne présente pas de diffi- 
culté (lignes 2250 à 2710). La ligne 
2340 a pour objet de renvoyer à 
l'initialisation du tir si le coup indiqué 
a déjà été fait: on ne peut tirer deux 
fois dans la même case et, dans ce 
cas, le compteur de tirs n’est pas in- 
crémenté. 


Au niveau de la stratégie pure, l’inté- 
rêt de ce programme est assez li- 
mité : j'ai conçu ce programme pour 
mon fils de 6 ans et 1/2 dans le but 
de le familiariser avec le repérage 
dans le plan par le système ligne-co- 
lonne. En revanche, pour ce qui est 
de la technique de programmation, 
Bataille Navale” me semble assez 
complet. Il comporte la manipulation 
de tableaux matriciels et utilise abon- 
damment les IF THEN ELSE. Tous 
les sous-programmes disponibles sur 
le TI-99, à l'exception de CALL 
JOYST, y sont utilisés et vous pou- 
vez aisément en analyser les fonc- 
tions. 


80 REM ET ALAIN DUFONT 


90 REM 
100 
119 
120 
1:30 


140 NEXT V 


CALL CLEAR 
CALL SCREEN(11) 
FOR V=1 TO 8 
CALL COLOR (V, 


14,11) 
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150 REM HR IENENEE 700 REM + LE NAVIRE +# 
160 REM * TITRE #* 710 REM + VERTICAL - 

170 RENM ÉRRKEEEEREEÉERÉEE 720 REM HÉLERÉEREÉERÉERER SE 

180 CALL HCHAR(11,10,66) 30 RANDOMIZE 

190 CALL HCHAR(11,11,65) 740 NI=INT (RND#9) +1 

200 CALL HCHAR(11,127,84) 750 N2=INT (RND#9) +1 

210 CALL HCHAR(11,13,65) 760 IF NiiB THEN 770 ELSE 810 

220 CALL HCHAR(11,14,73) 770 MAT(NI,N2)=1 

210 CALL HCHAR(11,15,76,2) 780 MAT (N1+1,N2)=1 

240 CALL HCHAR(11,17,69) 790 MAT(N1+2,N2)=1 

250 CALL HCHAR (15, 18,78) 800 GOTO 970 

260 CALL HCHAR(15,19,65) 810 IF Ni=8 THEN 870 ELSE 860 

270 CALL HCHAR(15,20,86) 820 MAT{NI,N2)=1 

280 CALL HCHAR(15,21,65) 830 MAT{NI-1,N2)=1 

290 CALL HCHAR(15,22,76) 840 MAT(N1+1,N2)=1 

300 CALL HCHAR (15,23, 69) 850 GOTO 970 

310 PRINT "APPUYER SUR N° IMPFORTE QUELLE 860 MAT(NI,N2)=1 

TOUCHE FOUR COMMENCER" ‘ 870 MAT(NI-1,N2)=1 

320 CALL KEY(5, TOUCHE, ETAT) 880 MAT (N1-2,N2)=1 

350 IF ETAT=0 THEN 320 ELSE 3:70 890 REM HRÉEEEEMEREEEREEN SX 

F4 REM ÉÉERÉEÉERÉEEEEÉERE S00 KREM Æ TI 99 # 

350 REM + REGLE DU JEU *# 910 REM # FLACE LE + 

360 REM HA EEEENEE 920 REM +# NAVIRE HORIZ. # 

370 CALL CLEAR ; GEO REM HE 

380 FRINT "IL FAUT COULER DEUX NAVIRES D | 940 REM 

E 3 CASES ET 4 VEDETTES D'UNE CASE" 950 REM + C'EST FLUS DUR!+# 

390 PRINT ss: G40 REM 

450 FRINT "APPUYER SUR N'IMPORTE QUELLE 970 RANDOMIZE 

TOUCHE" 980 N3=INT (G#RND) +1 

410 CALL KEY{O,TOUC,ET) 990 N4= INT (9#RND)+1 

420 IF ET=0 THEN 410 ELSE 450 1000 IF NI=N1 THEN 1010 ELSE 1020 
450 CALL CLEAR 1010 IF N4=N? THEN 970 

4409 CALL SCREEN(12) 1020 IF N4:8 THEN 1030 ELSE 1220 
450 FOR V2=1 TO 8 1030 IF MATINS,N4)=1 THEN 970 

460 CALL COLOR (VE, 2,12) 1040 IF MATINE,N4+i)=1 THEN 970 
470 NEXT VE 1050 IF MAT(NS,N4+2)=1 THEN 970 
490 REM ARRETE 1060 IF N4£7 THEN 1070 ELSE 1080 
490 REM # INITIALISATIONS * 1070 IF MAT(NS,N4+3)=1 THEN 970 
it neépeiS 1080 IF N4>1 THEN 1990 ELSE 1100 
510 OPTION BASE 1 1090 IF MATINS, N4-1)=1 THEN 970 
520 DIM MAT (9,9), NAV (8) 1100 IF N3>1 THEN 1110 ELSE 1140 
530 2=TIR+COUP 1110 IF MATIN3-1,N4)=1 THEN 970 
340 TIR=O 1120 IF MAT(NS-1,N4+1)=1 THEN 970 
330 COUP=G 1130 IF MAT(NS-1,N4+2)=1 THEN 970 
SG: REP - AREAS 1140 IF N3€9 THEN 1150 ELSE 1180 
370 REM * CARACTERES  # 1150 IF MAT(NS+1,N4)=1 THEN 970 
580 REM HUE 1160 IF MAT(NS+1,N4+1)=1 THEN 970 
590 CALL CHAR(128,"FF818181818181FF") 1170 IF MAT{INS+1,N4+2)=1 THEN 970 
600 REM *CAR. COUP AU BUT# 1180 MAT(NE,N4)=1 

610 CALL CHAR(130,"FFFFFFFFFFFFFFEF") 1190 MATINS, N4+1)=1 

620 REM *CAR.COUF A L'EAUX 1200 MAT(NS,N4+2)=1 

630 CALL CHAR(129,"FF81A59999A581FF") 1710 GOTO 1540 

640 REM *CAR. LETTRE L # 1220 IF N4=8 THEN 1230 ELSE 1390 
650 CALL CHAR(152, "O0808080808080F8") 1230 IF MAT{NS,N4)=1 THEN 970 

66û PRINT "JE FLACE LES NAVIRES SUR LE D | 1240 IF MATINS, N4+1)=1 THEN 970 
IAGRAMME" 1250 IF MATINS, N4-1)=1 THEN 970 
670 REM HAE 1260 MAT (NS,N4-2)=1 THEN 970 
680 REM  *# TI 99 # 1270 IF N3>1 THEN 1280 ELSE 1310 
690 REM  +* FLACE * 1280 IF MAT(N3-1,N4-1)=1 THEN 970 
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1290 IF MATINI-1,N4)=i THEN 970 1840 CALL VCHBR(S, @+7,129,9) 
13:00 METINT-1,N4+1)=1 THEN 97û 1850 MEXT I 
F N3<9 THEN 1320 ELSE 1350 1860 FÜR Leûü TO 8 
F MATINZ+1,N4)=1 THEN 970 1870 CALL HCHAR(S4L,7,65+L) 
MATINT+1,N4-1)=e1 THEN 97û 1989 NEXT L 
MATINI+I ,N4+T)=i THEN 970 1890 FOR R=i TO 9 
- 1900 CALL HCHBR({A,7+R,48+R) 
60 MAT(NI,N4-1 = 1910 NEXT K 
70 MATINS, Na4i}=i 1920 GOSUE 2550 
86 GSOTO 1540 1920 REM  HERHÉEEEHEEREEEX 
590 IF MATINE,N4izi THEN 970 1940 REM + APFFEL LIGNE *# 
QG IF MÉTINIS,N4-1i=i THEN 970 1950 FEM  HÉMEEEERERELENEE 
1 IF MATINS, N4-2)ei THEN 970 1960 CALL HCHAR (15,4, 152) 
EU IF NIHi THEN 1430 ELSE 146û 1970 CALL HCHAR(1S,5, 73) 
HO IF MÊTINS-I,N4ÏE=1 THEN 970 1980 CALL HCHBR (15,6, 71) 
j IF MAT(NS-1,N4-1)=1 THEN 970 1990 CALL HCHAR(15,7,78) 
150 IF MATINS-1,N4-2)=1 THEN-970 2000 CALL HCHBR(15,8,69) 
Q IF NES THEN 1470 ELSE 1500 2010 CALL HCHBR(15,9,63) 
70 IF MÊTINI+I,N4)=1 THEN 970 2029 CALL KEY(O,KHEY, STAT) 
IF MAT(INI+I,N4-1)=1 THEN 5970 SOSC IF STAT=S THEN 2020 
90 IF MAT(INIE+I,N4-2)=1 THEN 97û 2040 IF KEY:73 THEN 2070 
IF MATINE,N4-T)=i THEN 970 2060 IF KHEY£SES THEN 2030 
510 MATINS, N4)=l - | 2060 FOR S=i TO 9 
1520 MATINE,N4-1)=1 2070 IF KEY=64+S THEN 2090 
30 MATINS, N4-2)=1 2080 NEXT 5 
Q GOTO 1600 2090 11=5 
160 REM  HEKEREEELEE RENE 2100 CALL HCHAR(1S, 11,64+6) 
n REM + TI 99 # 2110 REM ÆYÉHEMEERERÉEEEEEX 
70 REM +# FLACE # 2120 REM + APFFEL COLONNE +# 
à REM + 4 VEDETTES # 2130 REM ÆHRMEHEREEREEÉENSE 
Jin REM  EHÉEEEHEREÉENÉEINX 2140 CALL HCHAR(17,4,67) 
GO FOR G=1 TO 7 STEF 2 2150 CALL HCHAR (17,5, 79) 
3 RANDOMIZE 2160 CALL HCHAR (17,6, 76) 
3 NAV(G)=INT (RND#9) +1 2170 CALL HCHAR(17,7,79) 
30 NAV(G+1) =INT (RND#9) +1 2180 CALL HCHAR(17,8,78,2) 
à IF MAT(NAVIG) ,NAV(G+1))=1 THEN 1610 | 2190 CALL HCHAR(17,10,69) 
D IF NAV(G+1)29 THEN 1660 ELSE 1675 2200 CALL HCHAR(17,11,623) 
D IF MAT(NAV(G) ,NAV(G+1)+1)=1 THEN 16 | 2210 CALL KEY(O,KHE,STA) 
2220 IF STA=QG THEN 2210 
70 IF NAV(G+1):1 THEN 1490 ELSE 1690 2250 IF KEÏ57 THEN 2216 
IF MAT(NAV(G) ,NAV(G+1)-1)=1 THEN 16 | 2240 IF FE<49 THEN 2210 
2250 FOR T=i TO 9 
IF NAVIG)£9 THEN 1700 ELSE 1720 2260 IF KE=48+T THEN 22890 
IF MATINAVIG)+1,NBV(G+1))=1 THEN 16 | 2270 NEXT T 
10 2280 12= 
1710 IF NAV(G) #1 THEN 1720 ELSE 1730 2290 CALL HCHAR(17,153,48+T) 
1720 IF MATINAVIG)-1,NAV(G+1))=1 THEN 16 | 2:00 REM 
15 2:10 REM #DANS L'EAUX 
1730 MAT (NAV(G) ,NAV(G+1))=1 2220 REM 
1740 NEXT G 2330 GOSUB 2620 
1790 REM A REEUE 2340 IF MAT(I1,12)=0 THEN 2350 ELSE 2430 
1760 REM # CONSTRUCTION *# 2350 CALL HCHAR(4+11,7+12,129) 
1770 REM # DU # 2360 CALL SOUND {200,2000,0) 
1780 REM +# DIAGRAMME # 2370 Z=1+1 
1790 REM #HHKERERÉREEEERSX 2280 GOSUB 2690 
1800 CALL CLEAR 2500 GOTO 1979 
1810 CALL COLOR(13,7,16) 2400 REM 
1820 CALL HCHAR(S,8,128,9) 2410 REM +*AU BUT+# 
1850 FOR I1=0 TO 8 2470 REM 
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2430 
2445 
2450 
2460 
2470 
2480 
2490 


AE 
LE LE. 


CALL SOUND (500, -5,0) 
TIR=TIR+I 
Z=7+1 
IF TIRSIO THEN 2749û 
END 
GOTO Z38û 

FEM HÉéEREREERE 
2610 REM +COMPTEURSE 
2690 REM HEHÉELEREE 
DIZ=INT(Z/10) 
UNITE=Z-DIZ7#10 
2550 C&LL HCHBKRIS, 27,894) 
2560 CALL HCHÉR(G, 23,72) 
2570 CôLL HCHÉRIS, 24,8%) 


2930 


2549 


Le Crocodile Savant est un module 
de programme commercialisé par 
Texas Instruments. Il s’agit d’un pro- 
gramme de jeu éducatif. 


Principe du jeu 


Un crocodile est représenté dans le 
coin en bas à droite de l’écran. Une 
pomme apparaît sur la gauche et se 
dirige vers l'animal alors qu’un nom- 
bre s'inscrit dans son abdomen. Une 
opération arithmétique simple (addi- 
tion ou soustraction de deux nom- 
bres à un seul chiffre) figure dans la 
pomme. Si le nombre figurant sur le 
crocodile est le résultat de l’opéra- 
tion, il faut appuyer sur la barre d’es- 
pacement. La gueule du saurien 
s'ouvre alors et il mange la pomme. 
Si, en revanche, le nombre ne cor- 
respond pas au résultat, il ne faut 
rien faire. 


Au bout de dix essais, un deuxième 
crocodile se dessine au dessus du 
précédent, un peu plus vers la gau- 
che. Les pommes s’approchent donc 
plus rapidement de lui et le joueur 
doit décider plus vite d’ouvrir ou non 
la gueule de l’animal. Il en va ainsi 
jusqu'à la représentation du cin- 
quième crocodile. 


Si, à un certain niveau, le joueur ne 
donne pas un nombre suffisant de 
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CALL HCHBR(4+11,74+1%,130) 


2580 
2590 
2600 
2610 
2620 
2620 
2640 


FASO 


2é66û 
2670 
2880 
2890 
2700 


2710 


RETURN 


GOSUE 26 
GOTG 


RETURN 


RETURN 


CALL HCHBR (15, 
CALL HCHAR(17,4,32,12) 


CALL HCHAR(8,25,83) 
CALL HCHÉR(10,74,484DI2) 
CALL HCHAR (10,25, 48+UNITE) 


CALL GCHAR(4+11,7+17,W) 
IF W=129 THEN 2640 ELSE 2670 
CALL SOUND{-500,-3,0) 

90 

1940 


IF W=150 THEN 2640 


“7 Ci 
Hs D 


Le crocodile savant 


bonnes réponses, le jeu redescend 
au niveau précédent, c’est-à-dire que 
le dernier crocodile s’efface et on re- 
vient à la ligne en-dessous. 


Le jeu dure un certain temps, déter- 
miné à l'avance par le joueur lui- 
même lors de la mise en route du 
programme. Au bout de ce délai, le 
résultat est affiché ainsi que le score 
maximal obtenu par l’un quelconque 
des joueurs depuis le lancement du 
programme. 


Module ou programme ? 


A voir fonctionner, c'est très beau, 
mais cela vaut-il le prix ‘d'achat d’un 
module ? Je m'explique: un pro- 
gramme écrit en Basic peut tout aussi 
bien remplir les mêmes fonctions, 
même si son graphisme est moins 
spectaculaire. Encore que représenter 
un crocodile ne soit pas du tout hors 
de portée d’un programmeur moyen- 
nement entraîné ! Certains gadgets” 
poseront sans doute quelques pro- 
blèmes, comme par exemple la dé- 


Claude Lamy 


termination au départ de la vitesse 
de déplacement des pommes (déter- 
minant un niveau de difficulté.). Mais 
cela est loin d’être insurmontable. Un 
bon programmeur disposant du Basic 
Etendu peut en faire autant, sinon 
mieux. 


Conclusion 


En conclusion, je vous conseillerais 
plutot d'écrire vous-même un pro- 
gramme pour réaliser cette fonction 
de test mathématique. Même si les 
dessins en sont moins jolis, vous 
trouverez sans doute d’autres ”’trucs” 
pour l’agrémenter de manière à le 
rendre attractif pour vos enfants. 
Mais ce module du Crocodile savant 
est un premier pas dans une nou- 
velle politique de programmes: les 
programmes de jeux éducatifs. Nous 
ne saurions trop conseiller à Texas 
Instruments de persister dans cette 
voie tout à fait conforme à la voca- 
tion familiale du TI-99, mais en nous 
proposant quand même des modules 
un peu plus élaborés. 
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Le Simon” est un grand classique 
des jeux sur micro-ordinateur. Rap- 
pelons pour ceux qui l’ignorent que 
le but du jeu consiste à reproduire 
une séquence sonore de plus en plus 
longue composée de quatre notes de 
hauteurs distinctes. Pour vous aider à 
mener à bien cette ”’dictée musicale”, 
chaque note jouée est associée au 
clignotement d’une surface colorée, 
chaque couleur correspondant bien 
évidemment à une hauteur et une 
seule. La version présentée ici est ca- 
pable de mémoriser jusqu’à cent 
notes. On y joue à l’aide des manet- 
tes de jeu, ou des touches E, X, S et 
D du clavier; à deux, ou seul contre 
l'ordinateur qui se charge de générer 
de façon aléatoire la séquence. 


Initialisation 


Les lignes 25 et 30 réservent en mé- 
moire la place nécessaire à l’utilisa- 
tion de : 


1 - Deux cents variables de type 
P(M,N) pouvant prendre n'importe 
quelle valeur entière comprise entre 
1 et 4 inclus. Chacune de ces varia- 
bles correspond à l’une des quatre 
notes générées par vous ou votre ad- 
versaire, ce que l'ordinateur distingue 
grâce à l'indice M en lui attribuant la 
valeur 1 ou 2. Ainsi, à P(M,N) est as- 
sociée la Nième note de la séquence 
reproduite par le joueur M. 


2 - Cinq constantes chaînes A$(J) 
utilisées pour faciliter l'écriture du 
programme lors de la redéfinition des 
20 caractères qui composent le des- 
sin du ”Simon” (lignes 50 à 95). 


3 - Cinq variables B(Il) représentant 
les cinq meilleurs scores. 


4 - Cinq variables B correspondant 
chacune aux trois initiales de ceux 
qui les ont réalisés. Les lignes 35 à 
45 constituent pour ces variables une 
remise à zéro” plus élégante que la 
chaîne vide qui leur serait sans elle 
attribuée. 


Menu 


Les lignes 120 à 165 affichent le 
menu. Toutes les couleurs utilisées 
sont définies dans quatre sous-pro- 
grammes (lignes 1160 à 1300). Cela 
n’est pas indispensable, mais on peut 
ainsi simuler, en jouant des ”’transpa- 
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Jeu du Simon 


rences”, le résultat d’un PRINT AT 
malheureusement absent en TI Basic. 


En faisant apel au sous-programme 
CALL KEY (lignes 1305 à 1350), les 
lignes 170 à 230 vont déterminer la 
suite des opérations à effectuer. Une 
pression sur AID” provoquera l’affi- 
chage des règles du jeu, alors qu’en 
appuyant sur les touches 1 ou 2, ou 
sur le bouton de tir des manettes de 
jeu, on amènera le programme au 
début de la partie. Toute autre action 
sur le clavier entraîne l'affichage des 
cinq ‘meilleurs scores  (sous-pro- 
gramme contenu dans les lignes 
1585 à 1645), puis le retour au 
menu. 


Règles du jeu 


Les lignes 235 à 415 affichent en 
quatre ”’écrans” une description som- 
maire des règles du jeu. Ceux-ci sont 
séparés par l'appel du sous-pro- 
gramme CALL KEY qui remplace ici 
une boucle vide, avantageusement 
puisqu’une simple pression sur une 
touche quelconque du clavier annule 
le ”’délai” ainsi créé. 


Affichage du jeu 


Les lignes 420 à 650 ne présentent 
rien de particulier. On y utilise sim- 
plement quatre boucles et la possibi- 
lité offerte en TI Basic de répéter ho- 
rizontalement ou verticalement un 
même caractère, afin d'afficher le 
plus rapidement possible les quel- 
ques 260 petits carrés qui composent 
ce graphisme. 


Début de partie 


A l’aide d’une nouvelle utilisation du 
sous-programme CALL KEY, les 
lignes 665 à 710 vous permettent 
soit de visualiser les cinq meilleurs 
scores lorsque vous enfoncez la tou- 
che ”’ERASE”, soit de commencer à 
jouer (pression sur BEGIN” ou le 
bouton de tir.). Toute autre action 
vous renvoie au menu. Cette partie 
du programme n’est certes pas indis- 
pensable, mais elle évite que votre 
TI-99 ne commence sans vous lors- 
que vous jouez contre lui. 


Jeu 


A la ligne 730 commence véritable- 
ment le jeu. Cinq variables sont alors 
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définies : M et N' dont nous avons 
déjà parlé, D qui représente la durée 
de chaque note de la séquence, DE 
qui détermine le temps de réponse 
auquel vous avez droit pour créer ou 
répéter chacune d’entre elles, et SC, 
votre score, affiché en permanence 
en haut de l'écran par les lignes 755 
à 770. Le déroulement du jeu dé- 
pend ensuite de la version choisie. Si 
vous jouez seul (KM = 49), l’ordina- 
teur attribue de façon aléatoire à la 
variable P(M,N) une valeur qui va 
définir, dans le sous-programme des 
lignes 1390 à 1420, un branchement 
vers l’un des quatre sous-program- 
mes responsables des notes et cligno- 
tements (lignes 1425 à 1480). 


Si vous jouez à deux (KM = 50), 
c'est le joueur 1 qui va déterminer 
lui-même, à l’aide du clavier et/ou 
des manettes, vers quel sous-pro- 
gramme s’opérera le branchement. 
Le programme utilise pour cela les 
lignes 815 à 940 et boucle sur lui- 
même tant que votre réponse est 
correcte (test de la ligne 930) et que 
vous n'avez pas atteint la centième 
D de la séquence (test de la ligne 


Fin de partie 


Le programme ne s’aventure ici que 
si vous avez perdu. Il vous rejoue 
une dernière fois la séquence qui 
vous y a amené, en profite pour re- 
mettre toutes les variables P(M,N) à 
zéro (lignes 1010 à 1035), et vous 
invite, quoiqu'il arrive, à rejouer. 


Meilleurs scores 


Amener le programme aux lignes 
1080 à 1155 est ce qu’il peut vous 
arriver de mieux. Cela se produit 
lorsque vous venez de réaliser l’un 
des cinq meilleurs scores. L’ordina- 
teur les classe par ordre décroissant, 
vous demande d’entrer vos initiales 
(lignes 1140 et 1145), affiche les 
scores, puis retourne à la ligne 1050 
pour vous inviter à rejouer. 


Sous-programmes 


Les quatre sous-programmes des 
lignes 1160 à 1300 définissent les 
couleurs utilisées. 


Le sous-programme CALL' KEY 
(lignes 1305 à 1350) scrute le clavier 
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et vérifie que le bouton de tir de la 
manette (celle que vous utilisez pour 
jouer seul) n’a pas été enfoncé. Si 
c'est le cas, ou si une pression est 
exercée sur une touche quelconque 
du clavier, ou encore si le compteur 
À atteint sa valeur limite DE, alors on 
quitte le sous-programme. 


Celui des lignes 1355 à 1385 efface 
les commentaire qui apparaissent au 
centre du dessin du ”’Simon”. 


Les lignes 1390 à 1420 répètent la 
dernière séquence sonore jouée par 
votre adversaire. En cours de jeu, on 
fait appel à ce sous-programme en 
appuyant sur AID” ou sur le bouton 
de tir. 


Chacun des quatre sous-programmes 
suivants (lignes 1425 à 1580) génère 


une note et efface tous les caractères 
appartenant à un même groupe en 
leur attribuant la couleur 1 (transpa- 
rent). 


les lignes 1585 à 1645 affichent les 
cinq meilleurs scores pendant une 
durée déterminée par la variable DE. 


Le dernier sous-programme (lignes 
1650 à 1750) affiche les commentai- 
res, caractère par caractère, lorsque 
l’on ne peut utiliser un PRINT qui fe- 
rait monter” tous les caractères déjà 
présents à l'écran. 


Les instructions DATA contiennent 
les lignes, colonnes et codes des ca- 
ractères à afficher. 


Basic Etendu 


Cette version ne diffère que très peu 
de la précédente. Le résultat à 
l'écran est le même, mais la rapidité 
d'exécution est accrue. 


On y utilise plusieurs instructions par 
ligne dont le très pratique PRINT AT 
qui permet de supprimer quelques 
sous-programmes d'affichage, ainsi 
qu'ACCEPT AT, d'utilisation beau- 
coup plus souple qu’'INPUT. Enfin, 
puisque le Basic traite les variables et 
les constantes de la même façon et 
que l’heure était à la compilation, les 
constantes A$(I) ont été supprimées, 
remplacées remplacées par les varia- 
bles B$(I) déjà utilisées. 


Programme Simon - TI Basic 


REM HHEREERREURM EN MMM UE MUR HEIEX 
REM # SIMON EN TI-BASIC # 
REM # COPYRIGHT 99 MAGAZINE +# 
REM # Georges-Henri PELARD * 
REM ERREUR RUMEUR 


CN + La PJ + 


15 REM Initiali 
caractères 
20 REM 
OFTION BASE 1! 
DIM Fi2,100),8#8(5),B(5),R#$(5) 
FOR I=i TG SE 
B$(I)="---" 
NEXT I 
ASIL)="FFFFFFFFFFFFFFEE" 
B$(Z)="OIOSO7OFIFSEZ7FEF" 
A$(5)="SOCOENFOFOEFCFEFEF" 
AS (4) ="FFFEFCFSFOEOCOgG" 
BHIS)="FFIFIFIFOFO7OEOI" 
FOR 1=95 TO 119 STEF 8 
FOR J=i TO 5 
CALL CHBR(IT+J,4$(J)) 
NEXT J 
NEXT I 
CALL CHAR (91, MICA4299814199425C") 


25 
30 
,E= 
MS | 
40 
45 
50 
sis 
6 
65 
70 


gû 
85 
90 
95 
190 
195 
110 
ion 
SR dm 
120 
125 


150 


REM Affichage de l'écran d’introduct 


GOSUE 1:80 

CALL SCREEN(2) 

CALL CLEAR 

135 GOSUR 1175 

140 PRINT TAB(4)3"APPUYER SUR'"': : TAB(9): 
"1 FOUR 1 JOUEUR'": :TAB(9)5"2 POUR 2 JOU 
EURS" 


145 PRINT : 3: : TAB(4): CHARS (91)&" 99 MA 
GRZINE & GH FELARD" 

150 LI=44 
155 RESTORE 
180 GOSUR 
165 
170 
175 
190 
185 
190 
195 
200 
205 
219 
215 


220 


1690 

1éés 

GOSUR 1345 

DE=500 

GOSUB 1320 

EM=E 

IF (K=49)+(K=50)+(KT=189) THEN 435 
D=20 
FOR I=i 
FOR J=i 


5 
4 


TO 
TO 
ON J GOSUE 1440,1480,1520, 1560 
NEXT J 

NEXT I 

IF (K=1)+(K=55) THEN 250 

GOSUB 1600 

GOTO 130 


Anne 
ras 


LS 

240 

245 

2530 CALL CLEAR 

2353 GOSUB 1175 

280 FRINT " DANS SA VERSION ""1 JOUEUR'"" 
": :"LE JEU CONSISTE À REFRODUIRE" 

265 FRINT :" UNE SEQUENCE DE NOTES DE": 
:"FLUS EN PLUS LONGUE GENEREE" 

270 PRINT :" DE FACON ALEATOIRE FAR L'" 

273 PRINT :TAB(10) 3: "ORDINATEUR. " 

280 GOSUR 1245 

285 GOSUEB 1320 

290 CALL CLEAR 

295 GOSUE 1175 

300 FRINT " DANS SA SECONDE VERSION LE": 
:" PRINCIPE EST LE MEME MAIS": 2" LA 
SEQUENCE EST ALORS" 

305 PRINT :" GENEREE PAR LES DEUX": :" 

ADVERSAIRES QUI L'AUGMENTENT": :" D°UNE 

NOTE À CHAQUE FOIS." 


REM 





:){) MAGAZINE n° 2 


310 GOSUB 1245 570 NEXT I 
315 GOSUE 1520 37e FOR I=û TO 1 
220 CALL CLEAR 580 CALL HCHAR(6,7#1+13,96,2) 


225 GOSUR 1175 d9S CALL HCHAR(7-I,14+1,99) 
330 PRINT "CHAQUE NOTE EST ASSQCIEE A": | 590 CALL HCHAR(6+I,19+1,100) 

:" UNE SURFACE COLOREE QUI" 595 CALL VOHAR(7+*1+8,23,104,2) 
355 PRINT :"  CLIGNOTE LORSQU'ELLE EST" | 600 CALL HCHAR(9+1,22+1,108) 
340 PRINT :TAB(12)3"JOUEE.": : "CHAQUE SU | 605 CALL HCHAR(14+1,23-1, 108) 
RFACE EST 2SSOCIEE" 610 CALL HCHAR(18,7#1+135,112,2) 
345 PRINT :"A UNE DIRECTION (HAUT, BAS," | 615 CALL HCHAR(17+1,14+1,114) 

: :" DROITE OÙ GAUCHE) QUE LE" 620 CALL HCHAR(17+1,20-1,113) 
350 PRINT :" JOUEUR DETERMINE SOIT EN": | 625 CALL VCHAR(7#1+9,11,120,2) 

: "AFFUYANT SUR LES TOUCHES E,": s"X,D OÙ | 630 CALL HCHAR(9+I,19-1,123) 

S, SOIT EN UTILISANT" 635 CALL HCHAR(14+1,11+1,172) 
355 PRINT :TAR(S);3"LES MANETTES DE JEU." | 64Q NEXT I 
360 GOSUR 1245 645 GOSUB 1280 
365 DE=500 650 
370 GOSUER 13270 ‘ 655 REM 
375 CALL CLEAR 660 
380 GOSUR 1175 665 
285 PRINT "EN COURS DE JEU, FOUR FAIRE": | 670 RESTORE 1725 

: "REPETER LA DERNIERE SEQUENCE" 6875 GOSUB 1665 
390 PRINT :"IL SUFFIT D'APFUYER SUR AID" | 680 DE=300 

: "QU D'ACTIONNER LE BOUTON DE" 685 GOSUB 1320 

395 PRINT :TAR(7): "TIR DES MANETTES." 690 IF 1+(K=7)+(K=S1YTHEN 705 

400 GOSUB 1245 695 GOSUB 1600 

405 DE=250 700 GOTO 435 
410 GOSUR 1320 705 IF 1+(KT=18)+(K=14)+(K253) THEN 
415 GOTO 130 710 GOSUB 1370 

420 715 

425 720 REM 

430 R 725 REM 

435 CALL CLEAR 30 M=1 

440 GOSUB 1219 735 N=1 

445 FOR 1=0 TO 4 740 D=500-INT (104#L0G (N) ) 

450 CALL HCHAR(1+1,15-1,96,2#1+5) 745 DE=100+INT (200/N) 

455 CALL VCHAR(10-1,28-1,104,7#14+5) 750 SC=2+10#(N-1) 

460 CALL HCHAR(23-1,15-1,117,2#1+5) 755 CALL HCHAR(1,30,48) 

485 CALL VCHAR(10-1,6+1,120,2#14+5) 760 CALL HCHAR (1,29, 484+N-100%INT (N/ 100) 
470 NEXT I 1O#INT (N/10)) 

475 FOR I=0 TO Z 765 CALL HCHAR (1,28, 48+INT (N/10)—1O0#INT ( 
480 CALL HCHAR(1+1,14-1,97) N/100)) 

485 CALL HCHAR(I+I,20+1I,98) 770 CALL HCHAR (1,27, 48+INT (N/100)) 
490 CALL HCHBR(6+1,25+1,106) 775 IF KM=50 THEN 810 

495 CALL HCHAR(15+1,28-1,107) 780 M=1 

500 CALL HCHAR(204+1,23-1,115) 785 RANDOMIZE 

505 CALL HCHAR(20+I,11+1,116) 790 F2, N)=INT (RND#4) +1 

510 CALL HCHAR(15+I,6+1,124) 795 GOSUB 1405 

515 CALL HCHAR(G+I,9-1,121) go CALL HCHAR(12,17,473) 

520 NEXT I 805 GOTO 815 ur 

325 FOR 1=0 TO 2 810 CALL HCHAR(17,17,48+M) 

530 CALL HCHAR(S+I,11+1,100) 815 FOR O=1 TO N 

535 CALL HCHAR(S+1,23-1,99) 20 A=0 

540 CALL HCHAR(6+1,24-I,105) 825 CALL KEY(M,KT,S) 

545 CALL HCHAR(16+1,22+1,108) 830 CALL KEY(3,K,S) 

990 CALL HCHAR(17+1,21+1,114) 835 CALL JOYST(M,X,Y) 

999 CALL HCHAR(17+1,15-1I,113) 840 IF (KT=18)+(K=1)+(K=55) THEN 880 
560 CALL HCHAR (é+1I, 10+1,1272) 945 IF (K=69)+(Y=4) THEN 890 

S65 CALL HCHBR(18-T, 10+1,123) 950 IF (K=68)+(X=4) THEN 900 





CX.) MAGAZINE n° 2 19 


855 IF (K=88)+(Y=-4) THEN 910 1145 B$(I)=SEGS(I$,1,3) 
B6G IF (K=83)+{X=-4) THEN 920 1150 GOSUE 1600 

865 A=A+i 1155 GOTO 1050 

870 IF &=DE THEN 990 1160 

875 GOTO 825 1165 

880 GOSUE 1405 1170 

885 GOTO 815 1175 FOR I=1 TO 8 

890 P(M,Qi=1 1180 CALL COLOR(I,1,1) 
875 GQTO 925 1185 NEXT I 

900 F(M,O)=2 1190 

SÛS GOTO 925 1195 

S10 F(M,O)=5 1200 

915 GOTO 955 1205 

S20 F(M,0)=4 1210 FOR I=9 TO 12 

325 IF F{2/M,0)=0 THEN 935 1218 CALL COLOR(I,1,1) 
S30 IF F(M,O)<3F(2/M,0O)THEN 990 1220 NEXT 1 

925 ON F(M,0)GOSUE 1440,1480, 1505, 1560 1225 RETURN 

940 NEXT D 230 

G4S GOSUR 1270 1235 REM Cyan / Noir 
S5û M=T/M 1745 

SES NeN+1 1245 FOR 1=1 TO 8 

96 IF N{100 THEN 740 1230 CALL COLOR(I,8,1) 
965 Z=2+1000 : | 1255 NEXT I 

570 GOTO 1010 1260 RETURN 

975 1265 

980 1270 REM 

985 1275 

590 GOSUB 1370 1280 CALL COLOR(9,7,1) 
995 LI=8 1285 CALL COLOR(1I0,11,1) 
1000 RESTORE 1735 1290 CALL COLOR(11,5,1) 
1505 GOSUB 1665 1295 CALL COLOR(12,13,1) 
1910 D=20 1300 RETURN 

1015 FOR I=1 TO N 1305 

1020 ON 1+F{2/M, I) GOSUE 1460,1440,1480,1 | 1310 

520, 1560 1315 

1025 P (1,1)=û 1320 

1930 P(2,1)=0 325 CALL KEY(3,K,S) 
1035 NEXT I! 330 CALL KEY(1L,ET, ST) 
1040 IF N=100 THEN 710 1335 A=A+1 

1045 IF SC*R(S)THEN 1095 1340 IF A=DE THEN 1350 
1950 LI=20 1345 IF (S=0)#(KT< 3:18) THEN 13275 
1055 RESTORE 1740 1350 RETURN 

1060 GOSUR 1665 1555 

1065 DE=200 1360 

1970 GOSUB 1320 1345 

1075 IF (K=15)+(K=57) THEN 130 ELSE 435 1370 CALL HCHAR(10,14,32,9) 
1080 1375 CALL HCHAR(12,13,32,7) 
1085 1380 CALL HCHAR(14,15,32,5) 
1590 13585 RETURN 

1995 CALL CLEAR 1390 

1100 FOR I=1 TO 4 1395 

1105 IF SC*B(I)THEN 1115 1400 

1119 NEXT I 1405 FOR I=1 TO N 

1115 FOR J=S TO I+1 STEP -1 1410 ON 1+F(2/M,1)GOSUE 1420,1440, 1480, 1 
1120 B$(J)=B#$(J-1) 520, 1560 

1125 B(J)=B(J-1) 1415 NEXT I 

1130 NEXT J 1420 RETURN 

1135 B(I)=SC 1425 KR 

1140 INPUT "VOS INITIALES ? ":1$ 1430 REM Rouge <349Hz: 





20 :):)MAGAZINE n° 2 


1435 

1449 CALL COLOR(9,1,1) 

1445 CALL SOUND(D,:349,0) 
1450 CALL SOUND(D,44730,30) 
1455 CALL COLOR(9,7,1) 

1460 RETURN 
1485 

1470 REM Jaune 
1475 
1480 € 
1485 
1490 
1495 
1500 ! 
1505 
1510 K 
115 
D20 COLOR CLEA 
1525 SOUND (D,587,0) 
1530 C&LL SOUND (D, 447350, 360: 
1535 :CABL. COLOR (LE, 9,1) 
1545 

1545 

1550 KREM 


1535 Î 


1560 


1565 


£ 440Hz 


COLOR (10,1,1) 
SOUND {D, 440,0) 
SOUND (D, 44730, 30) 
COLOR(10,11,1) 


COLOR (12,1,1) 
SOUND (D, 657,0) 

1570 SOUND (D, 44730, 30) 
1575 COLOR (12,13,1) 

1580 RETURN 

1585 

1590 

1595 

1600 CALL CLEAR 

1605 GOSUE 1175 

1610 PRINT “ SCORES :" 

1615 FOR I=i TO 5 

1620 PRINT : : :TAB(I2);B$(1)5" 
1625 NEXT I! 

1630 GOSUE 1245 

1635 DE=300 

1640 GOSUB 1220 

1645 RETURN 

1650 

1655 

1660 

1665 FOR I=1 TO LI 

1670 READ L,C,A 

1675 CALL HCHAR(L,C, A) 

1689 NEXT I 

1685 RETURN 

1690 DATA 2,11,98,2,10,96,2,9,96,2,8,97, 
3,8,96,4,8,100,4,9,96,4, 10,96 

1695 DATA 4,11,98,5,11,96,6,11,99,6,10,9 
6,6,9,96,6,8,100 

1700 DATA 4,13,104,5,13,104,6, 13, 104 
1705 DATA 6,15,112,5,15,112,4,15,112 
1710 DATA 4,16,112,4,17,112,5,17,112,6,1 
7,112,4,18,112,4,19,114,5,19,112,6,19,11 


"sE(I) 


:){) MAGAZINE n° 2 


1715 DATA 4,22,120,4,23,122,5,23, 120,6, 2 
3,123,6,22,120,6,21,124,5,21,120,4,21,12 
1 

1720 DATA 6,25,96,5,25,96,4,25,96,4,26,9 
6,4,27,98,5,27,96,6,27,96,2, 13,105 

1725 DATA 10,14,65,10,15,80, 10, 16,80, 10, 
17,85,10,18,89,10,19,69,10,20,90,12,16,8 


1730 DATA 12,17,85,12,18,82,14,15,66, 14, 
16,69,14,17,71,14,18,73,14,19,78 

1735 DATA 12,13,71,12,14,65.12,15,77,12, 
16,69,12,18,48,12,19,86,12,20,69,12,21,8 
1740 DATA 24,4,65,24,5,80,24,6,80,24,7,8 
5,24,8,89,24,9,69,24,10,90,24,12,83,24,1 
3,85 k 

1745 DATA 24,14,82,24, 16,827,24,17,69,24 

18,68,24,19,48,24,21,48,24,22,85,24,24,6 
6 

1750 DATA 24,25,65, 24, 26,67, 24,27,75 


Programme Simon - Extended Basic 


| FEM HÉREEEEEEEEEÉÉREMÉERÉEEEREREEE 

2 REM +# SIMON EN X-BASIX # 

3 REM *# COFYRIGHT 99 MÉGAZINE ë 

4 REM * Georges-Henri PELARD # 

5 REM HHKEMEEEÉÉMÉEÉÉÉRÉ RER ERREURS 

19 REM 

15 FEM Initialisation et définition des 
caractères 


25 OFTION BASE 1 :: 
(5) 
30 B$(1)="FFFFFFFFFFFFFEFF" 
B$(2)="0103070F1F3F7FFF" 
0 E$(3)="80COE0FOFBFCFEFF" 
B$(4)="FFFEFCFBFOEOCO80" 
à B$(5)="FF7F3F1FOFO70301" 
FOR 1=95 TO 119 STEF 8 :: FOR J=1 TO 
:: CALL CHAR(I+J,B$(J)):: NEXT J :: NE 
I 
à CALL CHAR(91,"3C4299A14199423C") 
5 FOR I=0 TO 8 :: CALL COLOR(I,8,1):: N 
EXT I 
70 FOR 


DIM F(2,100),B(5),H$ 


11 TO 5 3 BéRCI)=" __" gs NEXT I 
80 REM Ecran d'introduction 


{menu) 


90 CALL SCREEN(2):: GOSUE 730 
95 CALL CLEAR 

100 RESTORE 1040 

105 FOR I=i TO 44 :: 
HCHAR(L,C,A):: NEXT I 
110 DISPLAY AT(15,4): "APPUYER SUR" :: DI 
SPLAY AT(17,9):"1 POUR 1 JOUEUR" :: DISP 
LAY AT(19,9):"2 POUR 2 JOUEURS" 


READ L,C,A :: CALL 





22 


PLAY AT(24,4) BEEF:CHRS(IGUIE" 59 M 


NE % GH PELARD" 


OR ET=<18 THEN 285 


ON J 
NEXT 


< FOR I=i TO 5:11 
UB 845,885, 925, 965 


7 REM Règles du Jeu 


REM anses seneensess 

8 DISPLAY AT(I0,1)ERASE ALL: "DANS 58 V 
ERSION "A JGOLEURMP" DISFLAY AT(12,1) 
"LE JEU CONSISTE A REFRODUIRE" 

195 DISFLÉY AT(14,%): "UNE SEQUENCE DE NO 
TES DE" DISPLAY ATCLE, 1) 2 "PLUS EN FLU 
S LONGUE GENEREE" 

Sù DISFLAY AT(I8,21: 
F&R L°" 
TEUR" 
195 GOSUR 755 

200 DISFLAY 8ST(IO,2)ERASE ALL: "DONS S8 5 
ECONDE VERSION LE" DISFLAY AT(I3,Z5)s" 
PRINCIPE EST LE MEME MAIS" DISPLAY AT 
(14,4): "LA SEQUENCE EST ALORS" 

208 DISPLAY AT(I6,4):"GENEREE FR LES DE 
LUXE" DISFLAY AT{I8,1):"ADVERSAIRES QUI 
L° AUGMENTENT " DISFLAY AT(20,Z)BEEF:" 
D'UNE NOTE à CHAQUE FOIS." 
210 GOSUE 755 

215 DISFLAY ATIZ, 1)ERASE ALL: "CHAQUE NOT 
E EST ASSOCIEE 4" DISFLAY AT(4,35): "UN 
E SURFACE COLOREE QUI" 

220 DISFLAY AT(6,3):"CLIGNOTE LORSQU*ELL 
E EST" DISFLAY ATIS8,12): "JQUEE." 

225 DISFLAY AT(10, 1): "CHAQUE SURFACE EST 
ASSOCIEE" DISFLAY AT({12,1):"A UNE DI 
RECTION (HAUT, E8S," 

250 DISFLAY AT (14,7 
QUE LE" DISFLAEY 
EMINE SOIT EN" 

25 DISFLAY AT(I8,1):"AFFUYANT SUR LES T 
QUCHES E," DISPLAY &TIZG,1):"X,D OÙ GS 
, SÛIT EN UTILIS£ENT" 

24 DISFLAY AT(27,5)BEEF: 
E JEU,” 

245 DE=500 :: 
250 DISFLAY AT(ISG,1)ERASE ALL:"EN COURS 
DE JEU, FOUR FAIRE" DISFLAY AT({12,1): 
"REPETER LA DERNIERE SEQUENCE" 

253 DISFLAY AT(14,1):"IL SUFFIT D'AFFUVYE 
KR SUR AID" DISFLAY AT{16,1):"O0 D°ACT 
IONNER LE BOUTON DE" DISFLAY AT(18,7) 
BEEF: "TIR DES MANETTES." 


DE FACÜN ALESTOTRE 
DISPLAY BT (20,10) BEEF: "ORDIN 


): "DROITE QU GAUCHE) 
&T(16,2):"JOUEUR DETE 


"LES MANETTES D 


GOSUR 755 


PAS 
“et 


265 


riz 


DE=250 1: 
GOTO 95 


GOSUB 755 


FU 
275 REM 8ffichage 

du jeu 
280 REM 
285 CALL CLEAR 
290 FOR I1=9 TO 12 :: 

NEXT I 
295 FOR Ieû TO 4 
00 CALL HCHARUTAT,IS-T,96,2#I+5)3: 
VEHBR(TG-T,28-T, 104, 24145): : 
(PURE, 1S-1, 112, 2X145) CALL 
b+1,120,24#1+5 
AS NEXT I 
SiG FOR I=û TO € 
JS CALL HCHBRIT4T, 14-1,97):: CALL HCHBR 
Ci+I,2OET, SGlss CALL HCHÉR(E+I, ZS+T, 16) 

CALL HCHAR (15+1,28-1,107) 

320 CALL HCHBR (20+1,23-I,119):: 
ARESO+T,1141,116):: 
174): 


CALL 
CELL HCHAR 
VCHAR(1Q-T, 


CALL HCH 
C&LL HCHAR(IS+I,6+1, 
CALL HCHBR(é+1,9-I1,17%1) 

325 NEXT I 

36 FOR I1=0 TO 2? 
5e CALL HCHBR(S+I,1141,100):: CALL HCHA 
R(S+1,23-1,99):: CALL HCHAR(6+I,24-I,105 
js: CALL HCHBR(16+I,22+1,108) 
340 CALL RENE ER 
AR‘17+1,13-1,113):: 
fab s CALL 
345 NEXT I 
350 FOR I=0 TO 1 | 
355 CALL HCHAR (6, 7#1+13,96,2):: CALL HCH 
AR(7-1,14+1,99):: CALL HCHAR(6+I,19+1,10 
O):: CALL VCHAR(7#1+9,73,104,2) 
360 CALL HCHAR(9+I,224+1,108):: 
R(14+1,23-1,105):: CALL HCHAR(18,7#1I4+13, 
112,2):: CALL HCHAR(17+1,14+1,114) 
365 CALL HCHAR(17+1,20-1,113):: CALL VCH 
AR(7#1+8,11,120,2):: CALL HCHAR(9+I,12-I 
.123)s: CALL HCHAR{14+41,11+1,122) 
570 NEXT I 
275 GOSUE 
390 
285 REM 
390 F 
295 DISFLAY AT(10,12)SIZE (7): 

DISFLAY AT(18,14)SIZE (3): "SUR" 
LAY AT{14,13)BEEF SIZE(S): "BEGIN" 
400 DE=200 :: GOSUE 755 
405 IF K=7 OK K=51 THEN GOSUER 1005 ELSE 
415 
410 
415 
795 
420 
425 
450 


4355 


CALL HCH 
C8LL HCHBR (SET, LOT, 
l “HCHBR (18-1, 1041, 123) 


CALL HCHA 


730 


Début de Fartie 


"AFFUYEZ" : 
DISF 


GOTO 285 
IF ET=i8 OR KH=i4 DK FE 
ELSE, 95 


=53 THEN GOSUE 





:):) MAGAZINE n° 2 


44 D=S00-INT(1048#LOG {ND )ss DERTOO+TNT (2 
OQ/N) 

445 SC=7+10e(N-1) 

450 CALL HCHAR(1,250,48):: C&LL HCHAR (1,2 
Q,AB+N-1OGOKRINT {N/100) -1O0EÆINT(N/100 0) 

455 CALL HCHAR (1,28, 48+INT(N/10)-IO8TNT( 


46 IF EMSSO0 THEN 490 

485 M=1 

470 RANCOMIIE :: 

475 GOSUE 8£0 

480 C8LL HCHBKR(12,17,45) 

465 GOTO 495 

490 CALL HCHBAR(IZ, 17,494" 
495 FOR O=i TON 

SOC 80 

509 CALE KEYISSE, SNS 
CALL JOYSTEM, X, Yi 
510 IF ET=18 OR E=1i OK K2=5S5 THEN GOSUER 8 

QG Os: GOTO 495 

IF E=éS OR Y=4 THEN FIM, O)=1 


FCZ,N) =INT (RND#4) +1 


CALL HEY(MET, Si: 


3 GOTO 


} 


cn CN 


1 
S. 


+ 
Lil 


E=68 OR X=4 THEN F(M,0)=2 :: GOTO 


F3 en F3 


S 1 OS 


E=88 OR Y=-4 THEN FiM.O)=S 2 GÜT 


cn 


E=65 OK X=-4 THEN FiM,0)=4 3: GOT 


LA 
* (n On 


LE 


IF A=DE THEN 615 
GOTO 505 
IF FIZ/M,0)=G THEN 560 
IF FIM O)ESFECZ/M, O0) THEN 815 
ù ON FM, O0) GOSUE 645,995,910,965 
; NEXT O0 

G GOSUE 795 

M=2/ 

285 N=N+i 
385 IF N£100 THEN 445 
990 Z=7+1000 
595 
TRI) 
STE 
&i0 
615 GOSUB 795 
620 DISFLAY ATCIZ,11)SIZE(S): "GAME OVER" 
8:35 D=5û 
830 FOR I=i TO N :: 
65,845,885,925,965 
NEXT I 
635 IF N=100 THEN 285 
&40 IF SC'B{IS) THEN 470 
645 DISFLAY AT(24,4)BEEF: "APFFUYEZ SUR KE 
DS OÙ RACE" 
650 DE=200 :: GOSUR 755 
IF K=15 OR K=57 THEN 95 ELSE 2895 


=. 


En C1 BB LA 
ni on 


Œ 
..) 
(#] 
Œ 
st 
(8) 
d 
o 
Œ 
= 
= 
st 
J 
Œ 


[a 
+ Cr 
2 


ON 1+P(2/M,1)GOSUE 8 
2: P(1,1)=0 2: F(2,1) 


=Q 3: 


6535 
660 
dés FEM Meilleurs Scores 


:):)MAGAZINE n° 2 


870 

675 FOR Izi TO 4 

685 IF SC'BCI)THEN 650 

885 NEXT I 

890 FOR J=S TD I+1 STEF -1 

lis: H(JieB(J-1)is:: NEXT J 

835 B{li=6C 

Fin DISFLAY BTIIS, S)ERBSE 8LL BEEF: 
INITIALES SVP 7" BCCEFT ATCIS, ZE) VELI 

DATE {USLPHB)SIZE(T) HEEF:HS$ (1) 

705 GOSUE 1005 

710 GOTO 445 

715 REM 

F0 KEM 

725 KEM 

730 CALL COLOR(9,7,1):2: CALL COLOR(IQ, 11 
sise: CALL COLOR(11,5,1):: CALL COLCOR(12 
44. 1% 


nid 


735 RETURN 


B$(J)=R8(J 


HAUTE 
Us 


745 REM 
780 REM 
755 âzû 
780 CALL HEYCS,K, Si: 
BzË+i où 

785 IF ASDE THEN 775 
770 IF S=û AND KT£518 THEN 76û 
775 RETURN 

780 REM 
785 RE“ 


CALL FEY(I,EKT,ST): 


Effacage Central 


795 CALL HCHAR(10,14,32,9):: CALL HCHAR( 
12,13,32,7):: CALL HCHAR(14,15,32,5) 
800 RETURN 
805 
810 
815 
820 FOR I=1 TO N :: ON 1+P(2/M, I) GOSUB 8 
25,845,885,925,965 :: NEXT I 

25 RETURN 

950 

855 R 
g4û 
845 COLOR(9,1,1) 
850 SOUND (D, 349,0) 

55 SOUND (D, 44730, 30) 

860 COLOR (9,7,1) 

865 RETURN 

a70 
975 
880 
885 


890 


Jaune <440Hz 


COLOR (10,1,1) 
SOUND (D, 440, 0) 
895 SOUND (D,44730, 50) 
900 COLOR (10,11,1) 
905 RETURN 
910 

915 REM Bleu 


920 
720 


3874 + 





= 
925 


930 
935 
940 
945 
950 


955 


980 
985 
570 
975 
98ûù 
985 
990 
995 
des 
1900 REM 

1565 DISFLAY AT(1,35)ERASE ALL BEEF:"SCOR 
ES" 

1919 FOR 1=1 TO 5 :: 
):EH$(I):: 


CALL 
CALL 


COLOR(11,1,1) 
SOUND (D, 587,0) 
CALL SOUND (D, 44730, 30) 
CALL COLOR(11,5,1) 
RETURN 


Vert <659H 


COLOR (12,1,1) 

SOUND (D,4659,0) 

SOUND (D,44770,30) 

COLOR (12,13,1) 
RETURN 


DISPLAY AT(3#1+5,13 
DISPLAY AT(3#1+5,17):B(l):: NE 


Jeu des carrés 


KT: { 
1015 DE=300 :: 
1020 RETURN 
1025 

1030 

1035 

1040 DATA 2,11,98,2,10,96,2,9,96,2,8,97, 
3,8,96,4,8,100,4,9,96,4,10,96 

1045 DATA 4,11,98,5,11,96,6,11,99,6,10,9 
6,6,9,96,6,8,100 

1050 DATA 4,13,104,5,13,104,6,13, 104 
1055 DATA 6,15,112,5,15,112,4,15,112 
1060 DATA 4,16,112,4,17,112,5,17,112,6,1 


GOSUB 755 


7,112,4,18,112,4,19,114,5,19,112,6,19,11 


1065 DATA 4,22,120,4,23,122,5,23,120,6,2 
3,123,6,22,120,6,21,124,5,21,120,4,21,12 
1 

1070 DATA 6,25,96,5,25,96,4,25,96,4,26,9 
6,4,27,98,5,27,96,6,27,96,2,13,105 


Didier Bicking 


Voici encore un programme qui nous 


vient de nos amis belges du club TI- 


SOFT-HOME, décidément très proli- 
fique. Mais cette fois-ci, faute de 
temps, je ne l’ai pas traduit en fran- 
çais. Il vous appartient donc de faire 
ce travail. En fait, seuls les messages 
doivent être modifiés et je vous 
conseille, lorsque vous taperez ce 
rogramme, de repérer sur le listing 
es ordres PRINT devant supporter 
cette modification. Vous taperez alors 
directement les textes en français. 


Le principe de ce jeu est très connu : 
tout le monde y a joué un jour ou 
l’autre, utilisant pour ce faire une 
page d’un cahier scolaire. Chaque 


joueur à son tour trace un trait hori- 
zontal ou vertical. Le jeu consiste à 
être celui qui fermera le plus de 
carrés dans la surface délimitée pour 
le jeu. Ainsi quand un carré 
comporte déjà trois côtés, il faut tra- 
cer le quatrième pour que le carré 
soit pris. 


Le programme offre trois dimensions 
de jeu. Cela ne signifie pas qu'il y a 
trois niveaux de stratégie : l’ordina- 
teur ne se comporte ici que comme 
une feuille de papier, Es re à les 
coups des adversaires. Mais il fait 
cela très joliment : les représentations 
graphiques sont très soignées et les 
illustrations sonores très astucieuses. 


Ainsi, à chaque joueur correspond 
une couleur de fond d'écran ainsi 
qu’une musique l'invitant à jouer. 
Lorsque l’un des joueurs ferme un 
carré, une petite musique l’en félici- 
tent et le carré est coloré dans la 
couleur du joueur. 


Il n’y a aucune astuce particulière à 
signaler dans ce programme. C'est 
du beau travail, bien propre et bien 
fait. Notons surtout la présence de 
REMs en nombre suffisant : ils contri- 
buent à rendre le listing compréhen- 
sible, ce qui est tout aussi agréable 
pour le programmeur qui met sont 
travail au point, que pour les lecteurs 
de ”’99”, non ? 


DO REM HHEMEEEERERELEMMENMÉEEEEEÉEE SX 


_220 IF NO“5 THEN 250 


69 REM * COFYRIGHT 99 MAGAZINE # 
7) REM + ET TI-SOFT HOME # 
80 REM ÉHEHEMNEREELEMEEMEEMENEEMEN SE 
90 REM 

190 RANDOMIZE 

110 CALL CLEAR 

120 GOSUE 2680 

1:56 FOR X=1i TO 8 

140 CALL COLOR(X,2,4) 

150 NEXT X 

165 L=12 

170 C=16 

180 FRINT " NOMBRE DE JOUEURS? " 
190 CALL KEY({O,KY,ST) 

200 IF ST=09 THEN 190 

210 NO=VAL (CHRS$ (KHY) ) 


230 PRINT " P8S PLUS DE QUATRE JOUEURS": 


240 
250 
269 
270 
289 
290 
300 
310 
320 
330 
340 
350 
560 
370 


GOTO 180 
PRINT " DIMENSION DU JEU (F,M,G)" 
OCHAR=96 

PL=1 

CALL KEY(O,KY,ST) 

IF ST<>1 THEN 280 

IF KY£>80 THEN 370 

TOP=9 

BOT=16 

LEFT=12 

RIGHT=19 

PLAYS=60 

GOTO 500 

IF KY£>77 THEN 440 
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380 
390 
400 
419 
420 
450 
445 
450 
460 
470 
480 
490 
550 
S10 
gE0 
550 
540 
Ju0 
260 
S7Q 
980 
970 
&ûû 
615 
620 
&3û 
640 
650 
6é6û 
870 
680 
670 
700 
710 
720 
730 
745 
7530 
76 
770 
780 
790 
ga 
810 
gaz 
830 
840 
850 
8é6û 
870 
880 
890 
900 
910 
920 
950 
940 
950 


(ny: 
70 


TOP=S 

EOT=19 

LEFT=9 

RIGHT=25 

FLAYS=312 

GOTO 500 

IF EY£:71 THEN 280 

TOF=2 

EOT=2E 

LEFT=6 

RIGHT=27 

FLAYS=76û 

REM 

CALL CHAR(SS, "OT" 

FOR A=0 TO 8 STEF 8 

CALL CHAR (IOA4A, FFM 

CALL CHBR(I1OS4+4A, "G101010101010101") 
CALL CHAR (106+A,"FFO01010101010101") 
CALL CHAR (107+4,"FF818181818181FF") 
NEXT A 

FOR Z=120 TO 152 STEF 8 

C8LL CHAR(Z, “FF818181818181FF") 
NEXT Z 

CALL COLOR (1,4,4) 

CALL COLOR (9,2,4) 

CALL COLOR(10,2,4) 

CALL COLOR (11,16,4) 

C&LL COLOR (12, 2, 5) 

CALL COLOR(13,2,7) 

CALL COLOR(14,%,10) 

CALL COLOR (15,2,15) 

CALL HCHAR (1,1, 96,768) 

FOR Zz=i TO TOF 

CALL HCHAR(Z,1,32,32) 

NEXT 7 

FOR Z=BOT TO Z4 

CALL HCHAR(Z,1,32,32) 

NEXT Z 

FOR Zzi TO LEFT 

CALL VCHBR(1,2,32,24) 

NEXT Z 

FOR Z=RIGHT TO 32 

CALL VCHAR(1,2,32,72) 

NEXT Z 

CALL HCHARIL,C, 104+INT (RND#2+1)-1) 
CALL SCREEN(S) 

CALL HCHAR IL, C, 104) 

BLOC=104 

NCH8AR=104 

GOTO 1580 

BEM HR UE EEE EEE EEE EEE 
REM * ROUTINE DU CURSEUR + 
REM HELEEERERÉÉEMIÉÉ EURE EUMUUU EEE 
CALL KEY(O,EY,ST) 

IF ST=0 THEN 910 

IF KY=13 THEN 1530 

CALL HCHAR(L,C, QCHAR) 

CALL SOUND (100, 1000%RND+110, 15) 
IF EVSHé9 THEN 1050 
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970 

980 

990 

1900 
1910 
1920 
1930 
1940 
1950 
1960 
1070 
1980 
1090 
1100 
1119 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1700 
1219 
1270 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1500 
1310 
1320 
1350 
1540 
1350 
1360 
1370 
1380 
1590 
1400 
1410 
1420 
1430 
1445 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1529 
1530 
1540 
1550 


IF C£LEFT+1 THEN 990 
C=LEFT+2 
BLOC=104 


L=L-1 
IF L>TOP THEN 1030 
L=BOT-1 

CALL GCHAR(L,C, OCHAR) 
GOTO 1370 

IF KY£388 THEN 1140 

IF C£LEFT+1 THEN 1080 
C=LEFT+2 

BLOC=104 

L=L+1 

IF L£BOT THEN 1120 
L=TOP+1 

CALL GCHAR(L,C, OCHAR) 
GOTO 1370 

IF KY£>68 THEN 1230 

IF L£>BOT-1 THEN 1170 
L=BOT-2 

BLOC=105 

C=C+1 

IF C€RIGHT THEN 1210 
C=LEFT+i 

CALL GCHAR(L, C, OCHAR) 
GOTO 1310 

IF KY£383 THEN 910 

IF L£>BOT-1 THEN 1260 
L=BOT-2 

BLOC=105 

C=C-1 

IF C?LEFT THEN 1300 
C=RIGHT-1 

CALL GCHAR(L,C, OCHAR) 
REM BLOC=105 

IF OCHAR<104 THEN 1450 
IF OCHAR=104 THEN 1480 
IF OCHAR=105 THEN 1450 
IF OCHAR=106 THEN 1480 
IF OCHAR:106 THEN 1510 
REM BLOC=104 

IF OCHAR=105 THEN 1480 
IF OCHAR=106 THEN 1480 
IF OCHAR:106 THEN 1510 
IF OCHAR<=104 THEN 1420 
CALL HCHAR(L,C, 112) 
NCHAR=1 04 

GOTO 910 

CALL HCHAR(L,C, 113) 
NCHAR=105 

GOTO 910 

CALL HCHAR(L,C, 114) 
NCHAR= 106 

GOTO 910 

CALL HCHAR(L,C, 115) 
GOTO 910 

RETURN 

PLAYS=PLAYS-1 

IF PLAYS=0 THEN 2510 





25 






S60 PRS=STRS (FLAYSIEN 












LR 


“id 


ht het pes bee pos Het pes pen 
Ge En CO Q- 
[an 





D 5 À 


Es 







1730 
740 






















1830 


1890 



















2920 





2950 
AUS 
2040 
2965 


2070 
370 









Dates 
2080 





2h90 
3% 0 






2110 
2120 


Lis 


2130 









2140 








26 


à GOSUE 
> GOSUE 510 
» IF OCHA 








D CAL 
à SEIF=I 

Q SCORE (FL) =SCORE (FL) +1 
à GOSUE 


D REM HEEMERERSÉEÉEÉREREEERÉEMEEENEX 


SA 
2640 


JS THEN Léiô 
IF BLOC S:OCHÉR THEN 





630 


à CALL SOUND (300, 110,0) 


G0TO 1580 

CALL GCHAR(L-1,C, TST1) 
CALL GCHAR(L-1,C-1,TST2) 
CALL GCHAR(L+1,C,TSTE) 
CALL GCHAR(L, C+1,TST4) 


GCHÊAR (L,C-1,TST5) 
L GCHAR(L+1,C+1,TSTé) 
IF ELOC=I0NS THEN 1920 


D REM HEEHÉEREREEERERMEN EE MM EE EUX 
à REM # 


3 REM HEKKEHESEEREEEEERÉEEÉELENMEEX 


EN HAUT # 
IF TSTiité THEN 1800 

IF TET2<105 THEN 1800 

CALL HOHAR (L-1,C, 112+FL#8) 

268û 


REM + EN EAS # 


DO REM HÉLMELELEMEMENELELMNELÉLELESE 


IF TSTE=iû4 THEN 1840 
IF TSTIE1Gé THEN 2170 
IF TSTSSIQS THEN 2170 
IF OCHARSYIOS THEN 2170 


Q CALL HCHOR(L,C, 112+PL#8) 
Q SKIP=0 


SCORE (FL) =SCORE (PL) +1 
GOSUE 2680 


 GOTO 2130 


} REM HEMEREREMEMEEEÉERELEEEREMRUEEX 


REM +# À GAUCHE # 


JO REM EMEHEEMEERELÉELEHENÉEEEEENUE SX 


IF TST4i 106 THEN 2040 
IF TSTé=104 THEN 1970 

IF TSTé“i0é THEN 2040 
CALL HCHAR(L, C+1,1174FL#8) 
SKIF=1 


3 SCORE (PL) =SCORE (FL +1 
3 GOSUE 


2680 

FEM ÉÉREELEEEELELEMÉEEMÉEEÉEREÉREEEX 
REM + A DROITE # 
REM HHELÉREREEEEÉEMEERÉÉEERERMLÉELX 
IF OCHBR< 104 THEN 2170 

IF TST£=104 THEN 2070 

IF TST3{106 THEN 2170 

IF TST5:105 THEN 2179 

CALL HCHBR(L,C, 112+FL#8) 

SKIF=û 

SCORE (FL) =SCORE (FL) +1 

GOSUE 2680 

REM 


Q CALL GCHARL,C, TEMF) 


OCHAR=TEMF 


2150 
2160 
2170 
5180 
2190 


2300 
£&00 


MRFR 
2320 


LEE 
2F40 
2550 
2760 
270 
2540 
2390 
2400 
2410 
2420 
E450 
2440 
2456 
2460 
EA475 
E48û 
249û 
2500 
2510 
2520 
2530 
2540 
25530 
2560 
2570 
2586 
2590 
2800 
2810 
2820 
26:50 
2840 
2850 
ji 

268û 
2670 
2680 
2670 
2700 
2710 


27720 
FAC 








o CALL 


CALL HCHAR(L, CE, OCHÉR) 
GOTG 154 
OCHARE=NCHER 

CALL HCHBR(L, EC, NCHAR 
IF SKIP£:1 THEN 2230 


SEIF=0 


ï GOTO 1540 

DU ORENM RM RER RER EME RE RÉEL 
F0 REM *# 
Q REM + 
à REM HEHKEELHESEMRERERELEMEERELEEE 


) PL=PL+1 


SELECTION DU JOUEUR # 
SUIVENT # 


IF PL:NO THEN 2450 


3 IF FL=E? THEN 2550 


IF Fl=3 THEN 2400 
CALL SCREEN{13) 
SOUND (100, 392,0) 
SOUND {100, 267,0) 
SOUND {100, 330,0) 
1540 
GCREEN(7) 
SOUND (100,267, 0) 
SOUND (100,392, 0) 
SOUND (100, 330, 0) 
34 | 
SCREEN (10) 
SOUND (106, 392,0) 
SOUND (100, 350,0) 
SOUND (100,262, 0) 
1540 


CALL 
CALL 
GOTO 
CALL 
CALL 
CALL 
CALL 
GOTG 
CALL 
CALL 
CALL 
CALL 
GOTO 
Fl=1 
CALL 
CALL 
CALL 





SCREEN (5) 
SOUND (100,262, 0) 

SOUND (100,330, 0) 

CALL SOUND (100,392, 01) 

GOTO 1540 

PRINT " LE JEU EST TERMINE" 
PRINT :'"SCORES FINAUX:" 

FOR X=1 TO NO 

PRINT “ -";SCORE(X) 

CALL HCHAR(23,4,112+X%8) 
NEXT X 

FOR DELAY=1 TO 1000 

NEXT DELAY 

PRINT “ VOULEZ-VOUS REJOUER 
CALL KEY(O,KY, ST) 

IF ST=û THEN 2600 

IF EY=79 THEN 250 

END 

FOR X=1 TO LEN(PRS#) 


CALL HCHAR(24, X+3, ASC (SEGS (PRS, X, 1) 


NEXT X 
RETURN 
CALL SOUND (300,262, 0,350,0,397,0) 
CALL SOUND (500,262,0,392,0,52%4,0) 
CALL SOUND{700,1047,0,524,0,2462,0) 
RETURN 

BLOC=104 
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Cela faisait maintenant sept ans, ce. 


23 mai 1983, que j'avais épousé Syl- 
vie; et c’est cette après-midi que 
choisit Martine pour débarquer dans 
ma ville. Cette après-midi là, j'ai 
sauvé la civilisation humaine. C’est 
du moins comme cela que je vois les 
choses. Martine est une blonde dont 
j'étais cinglé dans le temps. 


Le rôle que Martine a joué là- 
dedans, c’est qu’elle me faisait passer 
des frissons glacés le long de la co- 
lonne vertébrale, rien que de penser 
à elle. En fait, j'ai une femme que 
j'ai épousée après m'être séparé de 
Martine avec un désespoir du genre 
romantique. C’est une bonne épouse 
et elle m'a donné des gosses. Ils sont 
insupportables, mais ce sont les 
miens et je les aime bien. Si je me 
tiens tranquille, je pourrai finir ma vie 
à pêcher à la ligne, avec une pension 
de la Sécurité Sociale et quelques 
économies. Oui mais il y a Joe, et il 
m'inquiète Joe ! 


Je travaille pour une société qui fa- 
brique des terminaux intelligents. 
Mon rôle consiste à réparer les ma- 
chines en panne et, en toute modes- 
tie, je dois dire que je ne me dé- 
brouille pas mal. Avant, je réparais 
des téléviseurs. Jusqu’au jour où on 
a inventé ce système qui consistait à 
brancher des micro-ordinateurs sur 
une banque de données générale. 
Depuis, d’ailleurs, on ne parle plus 
de micro-ordinateurs mais seulement 
de terminaux intelligents (on dit TI 
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L'ordinateur de l’avenir 


tout court). Les gens qui ont conçu 
ce système ont commencé par bran- 
cher entre eux plusieurs ordinateurs, 
puis ces branchements se sont géné- 
ralisés et ils étaient contents. Ils en 
sont toujours à se demander tout ce 
que l’on peut faire avec un TI mais, 
en attendant, tout le monde en a un 
chez soi. Moi-même, j'ai Joe, mais il 
est à la cave et je ne sais toujours 
pas si je vais le remettre en marche 
ou le mettre en miettes avant de le 
jeter au plus profond de la rivière. 


Vous voyez le tableau. Vous avez un 
TI chez vous. Ca ressemble à un 
poste de télévision sauf qu’il y a un 
clavier au lieu de boutons; vous y 
tapez ce que vous voulez obtenir. Il 
est relié à la banque de données gé- 
nérale. Mettons que vous tapiez 
"Station TF1” et la banque vous en- 
voie le programme diffusé par TF1. 
Ou bien vous tapez Téléphone de 
Jacqueline Durand”, et vous vous 
trouvez relié, son et image, avec le TI 
de Jacqueline Durand. Et si vous de- 
mandez la météo, ou le résultat du 
tiercé aujourd’hui, ou qui était minis- 


tre des finances sous Pompidou, 


vous l'aurez aussi sur l'écran. A 
cause des fichiers de la banque. La 
banque, c’est un grand bâtiment qui 
contient tous les faits de la création 
et des enregistrements de toutes les 
émissions jamais réalisées. Elle 
contient aussi des tas de programmes 
que peut utiliser votre TI pour vous 
faire tous les travaux ou tous les jeux 
que vous pouvez imaginer. Elle est 
reliée à toutes les autres banques du 
pays et tout ce que vous voulez sa- 
voir, entendre ou faire, vous tapez et 
ça vient. Ca tient le rôle de médecin, 
de pharmacien, physicien, astronome 
et diseuse de bonne aventure. La 
seule chose que le TI ne vous dira 
jamais, c'est ce que votre femme 
veut dire au juste quand elle déclare 
de cette voix si particulière : Ah ! Tu 
crois ça ?” Les TI ne sont pas très 
forts en ce qui concerne les femmes. 
Il faut qu'ils aient affaire à des choses 
sensées. 


On nous a dit que les TI ont changé 
la civilisation. Et Joe aurait dû être 
un TI parfaitement normal, faisant à 
la place de pauvres parents les de- 
voirs des enfants. Mais il a dû y avoir 
une erreur en cours de montage. 
Une erreur si petite que les instru- 
ments de précision ne l’ont pas déce- 
lée, mais qui fit que Joe est un indi- 
vidu. Au début, il ne le savait pas lui- 
même oubien, étant un être logique, 


Didier Bicking 


il se disait que, si l’on réalisait qu'il 
était différent, on le mettrait à la fer- 
raille. Soit dit en passant, ç’aurait été 
une idée brillante. Bref, il passa tous 
les tests sans qu’on s’aperçoive de 
rien, et il fut installé chez un client. 
Jusque là, beau fixe. 


L'installation eut lieu dans la soirée 
du samedi. Le dimanche matin, les 
enfants de la famille regardèrent les 
émissions pour enfants de la semaine 
passée. À midi, les parents arrachè- 
rent les enfants au TI et les empilè- 
rent dans la voiture. Puis ils revinrent 
prendre les sandwiches qu’ils avaient 
oubliés, et un des gosses en profita 
pour demander encore une émission 
enfantine. Ses parents le firent sortir 
dare-dare, mais ils oublièrent d’étein- 
dre Joe. 


Il était midi. Rien ne se passa avant 
deux heures. C'était le calme qui 
précède la tempête. Martine n'était 
pas encore arrivée en ville, mais cela 
n'allait pas tarder. J'imagine Joe, tout 
seul dans l'appartement, ronronnant 
et méditatif. Pendant un bout de 
temps, il a dû passer des émissions, 
enfantines pour le plus grand béné- 
fice du buffet de la salle à manger, 
mais je crois qu’il a fini par aller ex- 
plorer la banque. Il n’y à pas un fait 
digne de ce nom qui ne soit pas 
quelque part dans une de ces ban- 
ques. Ce n'est pas la matière pre- 
mière qui manquait. Et Joe se mit au 
boulot. 


Non qu'il soit vicieux, vous compre- 
nez. Il n’est pas comme un de ces 
méchants robots qui veulent rempla- 
cer la race humaine par des machi- 
nes pensantes. Mais Joe était ambi- 
tieux. Si vous étiez une machine, 
vous voudriez faire votre boulot le 
mieux possible, non ? Eh bien, Joe, 
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28 


c'est ça. C’est un TI et il veut bien 
faire son travail. Et les TI peuvent 
faire bien des choses que les hu- 
mains ne peuvent pas faire, ou aux- 
quelles ils n’ont pas encore pensé, et 
il essaie de faire en sorte qu’on de- 
mande aux TI de les faire. C’est tout. 
Absolument tout, mais ça suffit, 
croyez-moi | 


Vers les deux heures de l'après-midi, 
les choses sont plutôt calmes au ser- 
vice entretien dans lequel je travaille. 
On jouait aux cartes. Puis un des 
gars se souvint qu'il devait appeler sa 
femme. Il alla vers l’un des TI et de- 
manda sa maison. L'écran crachota 
puis s’illumina. 


’Nous avons le plaisir de vous an- 
noncer une extension et une amélio- 
ration de nos services ! Votre TI peut 
dès maintenant, en plus des informa- 
tions, vous donner des conseils ! Si 
vous voulez faire quelque chose et 
ne savez pas comment vous y pren- 
dre, demandez-le au TI !” 


Il y eut un long silence, et de nou- 
veau l'écran crachota, comme s’il hé- 
sitait, puis passa la communication. 
Sa femme lui répondit et l’engueula 
pour un tas de choses. Il avala le 
tout, puis déconnecta. 


Vous avez vu ça, les gars ! nous dit- 
il en revenant, et il nous raconta le 
coup de l'annonce. Il va y avoir des 
plaintes. Supposez qu'un gars de- 
mande comment il peut se débarras- 
ser de sa femme?” 


Un autre annonça des as et dit : 


On pourrait essayer et voir ce qui se 
passe?” 


Pour rire, bien sûr. Il y alla et tapa sa 
question. En principe, dans ce genre 
de cas, une cloche de la Censure ap- 
paraissait sur l'écran et disait d’une 
voix sévère : ’La Sécurité Publique 
nous interdit de répondre à votre 
question.” Il faut bien une censure, 
sans ça les gosses demanderaient des 
choses qu’ils sont trop jeunes pour 
apprendre. Et pour d’autres raisons, 
comme vous allez le voir. 


Le gars tapa sa question : Comment 
faire pour me débarrasser de ma 
femme ?” Il en rigolait d'avance. 
L'écran resta vide une demi-seconde 
puis: Question de service: votre 
femme est-elle blonde, rousse ou 
brune?” Du coup il rigola franche- 
ment et nous fit signe d'approcher. Il 
tapa: Blonde”. Une autre pause 
d’une demi-seconde, puis l’écran affi- 
cha : ”Le cirage pour chaussures de 
couleur verte contient de l’hexaméta- 
cryloaminoacétine. Préparez un repas 


contenant de la soupe aux pois secs. 
Colorez-la avec du cirage vert. Elle 
aura l'aspect d’une soupe de pois 
frais.  L’hexamétacryloaminoacétine 
est un poison fatal pour les femmes 
blondes, mais il est sans effet sur les 
autres femmes, ou sur les hommes 
quelle que soit la couleur de leurs 
cheveux. Ce fait n’a pas été décou- 
vert par des expérimentateurs hu- 
mains, mais est un produit de nos 
services. On ne pourra pas vous in- 
culper de meurtre. Il est même fort 
improbable que vous soyez jamais 
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suspecté. 


L'écran redevint vide alors que nous 
nous regardions avec stupéfaction. Il 
devait avoir raison : un TI ne fait pas 
plus d’erreur qu’une simple calculette 
électronique. J’appelai les gars de la 
banque centrale sans perdre un ins- 
tant : 


"Hé, les gars ! Il se passe quelque 
chose ! Les TI se mettent à donner 
des instructions détaillées pour tuer 
sa femme ! Vite ! Vérifiez les pro- 
grammes de censure |” 


C'avait été de justesse ! Mais j'étais 
naïf. Au même instant, dans la 
Grand-Rue, un ivrogne tapa quelque 
chose sur un TI public. L'écran lui fit 
son topo sur les nouveaux services. 
?Chiche !” dit l’ivrogne et il composa 
une autre question : Comment em- 
pêcher ma femme de s’apercevoir 
que j'ai bu?” Et la réponse vint: 
Achetez un flacon de shampooing 
Phagor. Ce liquide inoffensif contient 
un détergent qui neutralise rapide- 
ment l’alcool éthylique. Dosage à uti- 
liser : une cuiller à café pour chaque 
gramme d'alcool que vous avez bu.” 





Le gars en question était suffisam- 
ment rond pour suivre ce conseil. 
Cinq minutes après sa sortie de la 
pharmacie, il était dessoûlé. Suffi- 
samment pour voir le parti qu’il pou- 
vait en tirer. Il fit breveter PASSOU, 
la boisson qui rendra votre foyer 
heureux. Son seul problème mainte- 
nant, c’est l'impôt sur le revenu ! 


Bon! Ça ce n’est pas grave. Mais 
voilà un gosse de quatorze ans qui 
voulait s'acheter une bicyclette, et 
son papa ne voulait pas débourser. Il 
appella un copain pour lui raconter 
ses ennuis et son TI lui dit : ” si vous 
voulez quelque chose sans savoir 
comment, demandez à votre TI” 
Alors le gosse composa : ” Comment 
gagner très vite un tas d'argent ? ” 


Son TI lui fournit le moyen le plus 
simple et le plus parfait de contrefaire 
les billets de banque jamais inventé. 
Vovyez-vous, toutes les données de 
base étaient dans la banque. Le TI 
n'avait qu’à intégrer les faits — chose 
possible depuis que Joe avait neutra- 
lisé certains programmes ça et là 
dans la banque. C'était tout. Le 
gosse se fit prendre au bout de trois 
jours ; il avait dépensé des fortunes 
et avait encore de l’argent plein les 
poches. Il était presque impossible de 
distinguer ses billets des vrais. Il ne 
s'était d’ailleurs fait prendre que 
parce qu’il avait essayé d'améliorer le 
procédé, comme les gosses qui ne 
sont jamais contents tant que ça mar- 
che. 


Ce ne sont là que des exemples. 
Personne ne sait au juste tout ce que 
Joe a fait. Il y a aussi le jour où le 
président d’une banque, après avoir 
lu le topo ” Demandez à votre TI ”, 
trouva amusant de demander 
comment il pourrait cambrioler sa 
propre banque. Et le TI le lui expli- 
qua, en détail et pour de bon! Le 
président sortit de son bureau en 
hurlant, exigeant qu’on appelle im- 
médiatement les flics. Il a dû se pas- 
ser beaucoup de choses de ce genre. 
Au cours de la nuit qui suivit, il y eut 
cinquante-quatre cambriolages dans 
la ville, tous techniquement parfaits. 
On ne connaît toujours pas les au- 
teurs de la plupart d’entre eux. 


BRAFOR 





Joe avait simplement exploré la ban- 
que et neutralisé quelques program- 
mes, comme un TI doit savoir le faire 
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(mais seulement sur demande !) ; en 
fait, il avait bloqué tous les program- 
mes de censure et monté son ” ser- 
vice ”. Les TI concevaient alors des 
crimes, des machines à contrefaire, 
des repas agréables et nutritifs, de 
nouvelles industries, le tout avec une 
totale impartialité. Il devait être sacré- 
ment content, Joe. Il marchait à plein 
tandis que ses jeunes propriétaires 
roulaient en voiture avec papa et 
maman. 


Ils revinrent à sept heures pile — les 
gosses tout heureux d’avoir fait les 
zouaves sur le siège arrière — puis les 
parents virent l'écran qui clignotait 
méditativement, passant d’un sujet à 
l'autre. Le père, qui en avait assez 
pour sa journée, l’éteignit. 


Et la paix desrendit sur terre ! 

Pour tout le monde. Mais pas pour 
moi! Martine était arrivée en ville. 
J'ai souvent remercié Dieu qu’elle ne 
m'ait pas épousé quand je le désirais. 
Au début, elle était blonde et fatale 
puis, au fil des années, elle est deve- 
nue de plus en plus blonde et fatale 
et elle a eu quatre maris de suite plus 
un acquittement à l'issue d’un procès 
pour homicide ! Elle est devenue de 
plus en plus enthousiaste et confiante 
dans ses possibilités. Ceci pour dire 
que Martine n’était pas le genre d’ex- 
petite amie que l’on aime voir arriver 
dans la ville où l’on vit avec sa 
femme. Mais elle arriva, juste au 
début de la seconde crise d'activité 
de Joe. 


Les enfants l’avaient remis en mar- 
che. J’ai appris tous ces détails par la 
suite, vous comprenez. Et tous les TI 
de la ville de répéter le petit topo : 
"Si vous voulez faire quelque chose, 
demandez-nous comment.” Encore 
mieux : en même temps que les in- 
formations, ils donnaient un récit dé- 
taillé de tous les évènements de la 
veille. Cela donnait aux gens l'envie 
de profiter de la rigolade. Un malin 
demanda : Comment puis-je fabri- 
quer un mouvement perpétuel?” 
Après quelques hésitations, le TI 
pondit un truc utilisant les mouve- 
ments browniens. Si les rouages 
n’ont pas plus de trois millimètres de 
diamètre, ils tournent, et c’est prati- 
quement le mouvement perpétuel. 
Un autre demanda le secret de la 
transmutation des métaux. Le TI mit 
un bon bout de temps pour intégrer 
toutes les données connues sur ce 
sujet, puis donna une réponse parfai- 
tement utilisable. Cela exige telle- 
ment d'énergie que ce n’est guère 
rentable que pour le radium, mais ce 
n'est déjà pas si mal. Et, vu que la 
police n’a cessé pendant deux ans de 
découvrir des pinces-monseigneur 
améliorées, des engins pour éventrer 
les coffres-forts et des clés universel- 
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les pour ouvrir toutes les serrures, il 
faut croire qu’il y en avait qui avaient 
l'esprit pratique. C’est fou ce que Joe 
a pu faire pour le progrès ! 


Et dans le domaine éducatif ! Mes 
gosses sont trop petits pour s’intéres- 
ser à ces choses, mais Joe avait blo- 
qué tous les programmes de censure 
parce qu’ils empêchaient les TI de 
bien servir l'humanité. Alors les 
gosses qui voulaient savoir ce qui se 
passe après le stade des abeilles et 
des petites fleurs l’apprirent. Et il y a 
aussi des trucs que les gens ne tien- 
nent pas tellement à dévoiler à leurs 
conjoints, mais ce sont justement 
ceux-là qui les intéressent. Alors, 
quand une femme demande : ”’Com- 
ment savoir si Jean-Jacques m'est fi- 
dèle ?” et que son TI le lui dit... il y a 
de la bagarre en perspective ! 


Pendant ce temps, Joe, ronronnant 
avec contentement, passait des des- 
sins animés à ses jeunes propriétaires 
avec un de ses circuits tandis qu'avec 
les autres il téléquidait la banque de 
façon que les autres TI puissent don- 
ner aux gens ce qu'ils désiraient, et 
par la même occasion faire un gra- 
buge de tous les diables. 


C'est là que Martine entra en jeu. 
Elle ouvrit le TI de sa chambre d’h6- 
tel, sans doute pour demander 
l'émission de mode, mais le TI, bien 
sûr, lui passa sa petite annonce : ”Si 
vous voulez faire quelque chose, 
etc.” Martine, forcément, fut enthou- 
siasmée et elle se demanda quelle 
question poser. Elle n’avait plus rien 
à apprendre-pardi, elle avait eu qua- 
tre maris dont un qu’elle avait liquidé 
- alors elle pensa à moi. Et elle 
composa : Comment puis-je retrou- 
ver Doucky?” 


Oui, c’est ainsi qu’elle m'appelait 
dans le temps. Le TI lui posa une 
question de service : ”’Doucky est-il 
connu sous autre nom?” Elle lui 
donna mon nom, mais le TI ne put 
pas me trouver parce que mon TI à 
moi n’est pas à mon nom. Comme 
je travaille pour la maison, je l’ai eu 
gratis. 


Joe fut embarassé. C'était sans doute 
la première question à laquelle il ne 
pouvait pas répondre. Un drôle de 
problème. Joe v réfléchit tout en 
montrant aux enfants un dessin 
animé sur le malin petit garçon qui a 
les poches pleines de bâtons de dy- 
namite et joue des tours à tous ses 
voisins. Puis il trouva la solution. 
L'écran de Martine passa un petit 
avis: nous vous rappellerons dès 
que nous aurons résolu votre pro- 
blème.” 


Martine commençait déjà à bailler, 
mais elle fit ce qu’il lui demandait et 
s’en alla faire la sieste. Joe, quant à 
lui, se mit au travail. Cela lui avait 
donné une idée. 


Ma femme m'appela à ce moment là 
et se mit à hurler. Elle était folle de 
rage, il fallait que je fasse quelque 
chose ! Elle avait voulu appeler le 
boucher. Au lieu de lui passer le 
boucher, ou même le topo habituel, 
le TI lui avait demandé : Question 
de service : comment vous appelez- 
vous ?” Elle, un peu étonnée, répon- 
dit. Alors l'écran crachota un mo- 
ment et dit: Démonstration de 
notre service documentaire.” Puis il 
se mit à débiter nom, âge, adresse, 
sexe, couleur des cheveux, nom du 
mari, montant de son compte en 
banque, montant des dettes chez les 
commerçants, trois condamnations 
que j'avais reçues - deux pour des 
histoires de circulation et la troisième 
pour désordre sur la voie publique - 
et le détail amusant qu’une fois, mon 
épouse était si en colère contre moi 
qu’elle m'a abandonné durant trois 
semaines et a fait suivre le courrier 
chez papa et maman. Et il avait 
ajouté gaiement: Ceci n'était 
qu'une démonstration. A l'avenir, 
nous pourrons prendre vos messa- 
ges, rechercher des personnes que 
vous désirez contacter, donner tous 
les détails biographiques, etc. Merci 
pour votre attention.” Puis il lui 
passa le boucher. 


Mais elle n'avait déjà plus envie de 
viande. Elle voyait rouge et m'avait 
appelé. ”’Et il va dire ça au premier 
qui le lui demandera ! Il faut que tu 
fasses quelque chose.” Elle ne se te- 
nait plus de rage. 


’Allons, allons, chérie.” J’essayai de 
la calmer. Je dis pour la rassurer ” Je 
n’en savais rien, mais je suis sûr 
qu’ils ne donneront ces renseigne- 
ments qu’à la personne elle-même. ” 


- Tu parles ! explosa-t-elle. J'ai es- 
sayé ! Tu connais notre voisine Ma- 
dame Henrÿ ? Eh bien, elle a été 
mariée trois fois, elle a quarante 
deux ans - elle dit qu’elle n’en a que 
trente cinq ! - et son mari a été ar: 
rêté quatre fois pour abandon de fa- 
mille et une fois pour coups et bles- 
sures. Et... 


- Et c’est le TI qui t’a dit tout ça ? 

- Oui, hurla-t-elle. Il dit n’importe 
quoi à n'importe qui ! Il faut faire 
cesser ça tout de suite. Ca sera 
long ? 

- Je vais appeler la banque centrale, 
dis-je. Ca devrait être vite réparé. 


- Dépêche-toi, me dit-elle avec dé- 
sespoir, avant que quelqu'un ne 
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compose mon nom... Je vais voir ce 
qu’il dit sur l’idiote d’en face.” 


Et elle raccrocha pour en profiter 
avant que ça cesse. Moi je demandai 
la banque et reçus l’avis : *’Comment 
vous  appelez-vous ?” Pris d’une 
curiosité morbide, je répondis et le TI 
me demanda: Avez-vous été sur- 
nommé Doucky?” Etonné mais sans 
méfiance, je répondis Oui.” Et 
l'écran me dit: ”Il y a un appel pour 
vous.” 


Et pan dans le mille ! Je vis l’inté- 
rieur d’une chambre d’hôtel avec 
Martine endormie sur le lit. Il faisait 
chaud ce jour là mais elle avait fait 
de son mieux pour ne pas souffrir de 
la chaleur. Moi, je suis humain, je ne 
restai pas de glace. Inutile d'’insister. 
Je repris mon souffle et m'écriai : 
"Nom de Dieu !” Elle ouvrit les 
veux. 


Au début, elle parut surprise de me 
voir sur l'écran, comme si elle se de- 
mandait si je n'étais pas un des gars 
qu'elle avait épousés récemment. 
Puis elle s’enroula dans un drap et 
me lança un sourire radieux. ”Dou- 
ckvy, c’est formidable !” 


J'étais couvert de sueur. Je marmon- 


nai quelque chose dans le genre de 
?Umph LA 


- Te voilà, Doucky ! Où es-tu en ce 
moment ? Quand peux-tu venir ? Tu 
ne peux pas savoir comme je pense 
souvent à toi !” 


Je suis probablement le seul de ses 
copains qu’elle n’ait pas épousé un 
jour ou l’autre. Je fis de nouveau 
?Umph !” et j'avalai ma salive. 


Tu peux venir tout de suite ? de- 
manda Martine joyeusement. 


- C'est-à-dire que... euh... je travaille 
et. Ecoute, je. je te rappellerai. 


- Je me sens si seule ! Depêche-toi, 
Doucky. Je ferai monter quelque 
chose à boire. Tu penses souvent à 
moi, Doucky ? 


- Oui, articulai-je faiblement. Très 
souvent. 


- Tu es un amour, me dit-elle en 
m'envoyant un baiser. Tiens !, c’est 
un acompte. Je t'attends, mon Dou- 
cky !” 


Je faisais une de ces suées ! je ne 
savais toujours pas que c'était la 
faute à Joe, vous pigez ? Je maudis 
les gars de la banque parce que je 
croyais que c'était de leur faute. Si 
Martine était simplement une blonde 
comme les autres... Mais elle a une 
sorte d'enthousiasme dévorant qui 
vous donne d’étranges sensations 
dans les genoux. 


J'appelai donc les techniciens de la 
banque. l'écran dit : Comment vous 
appelez-vous ?” Mais ça suffisait 
comme ça. Je tapai le nom d’un gars 
de la comptabilité et appris plein de 
choses très intéressantes. Je n'aurais 
jamais cru cela de lui. Puis le TI fit 
des boniments sur le nouveau service 
et me passa enfin la banque centrale. 
Je m'apprêtai à enqguirlander le gars 
qui arriva sur l'écran, mais il me dit 
d’une voix lasse : 





"Laisse tomber. Tu as des ennuis 
mais tu n’es pas le seul. Qu'est-ce 
qu'ils t'ont fait encore ?” 


Je le lui racontai, mais c’est tout juste 
s'il trouva ça drôle. 


Ce n’est rien, me dit-il, rien du tout. 
Nous venons juste de supprimer les 
fichiers contenant des renseigne- 
ments sur les explosifs à grande puis- 
sance. Les demandes de conseils 
concernant la contrefaçon s’accrois- 
sent à chaque instant. Nous essayons 
aussi de détruire les renseignements 
ayant trait au meurtre parfait. Si les 
gens sont occupés à se renseigner les 


uns sur les autres, nous aurons peut- 
être le temps de bloquer les procédu- 
res de virements bancaires avant que 
tout le monde ne soit ruiné sauf les 
malins qui ont pensé à demander 
comment faire pour augmenter leur 
compte en banque. 


- Mais faites donc quelque chose ! 
Pourquoi ne coupez-vous pas toutes 
les autres sources d’information ? 


- Est-ce que tu te rends compte qu’il 
y a des années que l’industrie et les 
affaires ne fonctionnent que grâce 
aux banques de données? Sans 
compter la distribution de télé, la 
météo, les horaires d’avion ou de 
train, la situation de l'emploi, toutes 
les communications Les TI ont 
transformé la civilisation. Sans eux, 
nous sommes perdus ! Si tu crois 
que je ne deviens pas hystérique 
quand je pense à ce qui arrivera si 
ma femme apprend le chiffre réel de 
mon salaire et se met à se demander 
qui est cette rouquine...” 


Il me regarda avec un sourire hagard 
et coupa la communication. Je m'’as- 
sis et me pris la tête dans les mains. 
Il avait raison. Si les hommes des ca- 
vernes avaient dû renoncer à l'usage 
du feu, si ceux du XIXème siècle 
avaient dû renoncer à la vapeur et 
ceux du XXème siècle à l'électricité, 
que serait-il arrivé? C'était pareil. 
Actuellement, un homme a besoin 
d’un ordinateur pour ses comptes et 
ses fichiers, d’un traitement de texte 
pour son courrier, du téléphone, de 
la télévision et des journaux, des bi- 
bliothèques, des encyclopédies, des 
dossiers, des annuaires, d’un avocat, 
d'un médecin, d'un dentiste, d’un 
pharmacien, d’une secrétaire... Pour 
tous les actes quotidiens de sa vie. 
Nous, nous n'avons besoin que d’un 
TI. Si nous voulons savoir quelque 
chose, parler à quelqu'un, nous ap- 
puyons sur les touches de notre TI. 
Si même nous voulons concevoir, 
programmer, créer des jeux ou 
autres applications, nous avons le TI. 
Mais Martine... 


Je ne savais toujours pas ce qui 


s'était passé. Et maintenant, per- 
sonne d'autre que moi ne le sait. Ce 
qui s'était passé, c'était Joe... L'en- 
nui, C'était qu’il voulait faire son tra- 
vail le mieux possible. Toutes ces his- 
toires de conseils, de recettes, etc., 
nous aurions dû y penser bien avant. 
Trouver le moyen de mettre du poi- 
son dans la soupe de la femme d’un 
bonhomme, c'était la même chose, 
en un sens, que d'extraire une racine 
cubique ou de tenir un compte en 
banque. Dans tous les cas, il s’agis- 
sait de trouver la réponse à une 
question. Si tout allait mal, c'était 
parce que trop de réponses étaient 
données à trop de questions. 
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Un des TI du service s’alluma. J'y 
allai d’un pas las pour prendre la 
communication. 

” Doucky ! ” s’exclama Martine. 
C'était la même chambre d'hôtel. 
Deux verres et une bouteille traf- 
naient sur la table. L’un des verres 
était pour moi. Martine avait passé 
une robe de chambre à faire s’exor- 
biter un régiment d’aveugles. Elle me 
regardait avec ardeur. 

?” Doucky, je m'embête toute seule. 
Pourquoi ne viens-tu pas ? 

— Je... (je m'étranglai.) Le travail. 
— Pouah! s’écria-t-elle. Doucky, tu 
ne te souviens pas des bons mo- 
ments qu’on a passés ensemble ?.. 
J’eus un haut le corps. 

? Tu es libre ce soir ? ” 

J'eus de nouveau un haut le corps 
parce qu’elle me sourit d’une façon 
qui tournerait certainement la tête à 
un célibataire, mais qui donne des 
frissons dans le dos à un homme res- 
pectablement marié comme moi. 

” Doucky! s’écria Martine (décidé- 
ment elle raffolait de ce surnom ridi- 
cule !) J’ai été si méchante avec toi. 
Marions-nous |! ” 

Le désespoir me redonna de la voix. 
” Je... suis déjà marié ”, lui dis-je. 
Elle ferma un instant les veux puis, 
courageuse : 

? Pauvre garçon ! On va te tirer de 
là, va. Ç'aurait été plus gentil si on 
avait pu se marier rapidement. Tant 
pis, on va se fiancer ! 

— Je... je ne peux pas... 

— Je vais appeler ta femme, dit 
Martine, toute contente, ‘et lui parler 
franchement. Si tu pouvais me don- 
ner le numéro de ton TI, chéri? 
Comme ça, tout s’arrangerait.. ” 


— Clic! Ça, c'était moi qui venais 
de couper la communication. Parfai- 
tement, et j'ai même failli m'en éva- 
nouir. J'étais au bord de la dépres- 
sion nerveuse. 
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Je me précipitai vers la porte en 
criant à quelqu'un qu’on m'avait ap- 
pelé d'urgence. J’avais en projet de 
tourner en rond dans une des voitu- 
res de la boîte jusqu’à ce qu’il soit 
l'heure de rentrer à la maison. En- 
suite, je prendrais femme et enfants 
et ficherais le camp quelque part où 
Martine ne me retrouverait jamais. Je 
n'avais aucune envie d’être son cin- 
quième mari et peut-être sa seconde 
victime, un soir d’ennui. Je les 
connais, les blondes. Et je connais- 
sais Martine ! Pour tout dire, j'avais 
une peur bleue. 


Je pris une camionnette du service 
d'entretien et m’engageai dans le flot 
de la circulation. Derrière, il y avait 
un TI de rechange tout prêt pour le 
cas où il y aurait un échange stan- 
dard à faire. Je conduisis comme un 
fou. La situation ne manquait pas 
d’ironie. Je perdais les pédales à 
cause d’un problème strictement per- 
sonnel, pendant que la civilisation 
s’écroulait autour de moi parce que 
tous les gens voyaient leurs problè- 
mes résolus sur-le-champ. On sait 
que les chercheurs de la Générale 
Electronique essayaient depuis long- 
temps de fabriquer un tube à fila- 
mant non chauffé — autrement dit de 
résoudre le problème de l'émission à 
froid d’électrons. Un des chercheurs 
eut l’idée de soumettre cette question 
à un TI. Ce dernier fit la synthèse de 
quelques quintillions de faits connus 
et lui a donné la réponse. Pas plus 
difficile que de dire à une dame 
comment servir agréablement la 
soupe réchauffée ou comment se dé- 
barrasser sans fatigue du vieux meu- 
ble qui encombre le grenier. 


Sans ce nouveau service des TI, 
Martine n’aurait jamais retrouvé ma 
trace. Mais maintenant, le feu était 
mis aux poudres... N'oubliez pas 


qu’elle a déjà tué un de ses maris et 
qu’elle a été acquittée ! Supposez 
qu’elle commence à s’impatienter et 
qu’elle demande au TI comment se 
débarrasser de ma femme de façon 
qu'on puisse se marier dans les 
quinze jours qui suivent ? Il le lui au- 
rait dit! De même qu'il a dit à une 
charmante  banlieusarde comment 
s'assurer que son mari ne courrait 
plus jamais les jupons. Bnr! Et le 
coup du gosse qui voulait savoir où 
trouver un trésor caché. Il était en 
train de déménager le contenu des 
coffres de Cartier lorsqu'ils l’ont at- 
trapé. Le TI lui avait dit comment fa- 
briquer une espèce de machine pour 
y accéder. On ne sait toujours pas 
comment ça fonctionne sinon qu'il 
doit y avoir une histoire de qua- 
trième dimension là-dessous. Si Mar- 
tine se mettait à poser des questions 
un peu plus techniques, les TI se- 
raient à leur affaire ! Je peux vous 
dire que j'avais la trouille. Si vous 
croyez qu'il est indigne d’un homme 
d’avoir peur d’une seule blonde, 
c'est que vous n’avez jamais rencon- 
tré Martine. 


Pendant que je conduisais comme 
un aveugle, un gars, conscient de ses 
responsabilités, demanda au TI 
comment appliquer dès maintenant 
son petit système personnel d’organi- 
sation sociale. Il ne lui demanda pas 
si son système était bon ou même s’il 
pouvait fonctionner. Non, il lui de- 
manda simplement comment l’appli- 
quer. Et le TI, ou Joe, le lui dit! Au 
même moment, un prêtre en retraite 
demanda comment guérir la race du 
péché de concupiscence. Comme il 
avait soixante-dix berges, il était en 
dehors du coup, mais il voulait écar- 
ter ce péril mortel du restant de l’hu- 
manité. En trois secondes, la réponse 
arriva. Il suffisait de construire un 
émetteur diffusant des ondes modu- 
lées de façon particulière. C’est tout. 
Ça suffit On a découvert le pot au 
rose par la suite, alors qu'il essayait 
de réunir les fonds pour passer à 
l’action. Heureusement, il n’avait pas 
eu lidée de demander au TI 
comment financer l'opération, sinon 
nous aurions tous été quéris des 
élans que nous regrettons peut-être 
par la suite mais jamais sur le mo- 
ment. Il y avait aussi le petit groupe 
de profonds penseurs qui était cer- 
tain que la race humaine serait bien 
plus heureuse au fond des bois, en 
compagnie des fourmis et des cham- 
pignons vénéneux. Ils ont demandé 
comment inciter les hommes à quit- 
ter les villes et les conditions de vie 
artificielles. Le nouveau service des 
TI a bien failli apporter une réponse 
définitive à la question ! 


Sur le moment, vous ne vous en êtes 
peut-être pas rendu compte, mais 
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pendant que je conduisais à l’aven- 
ture en suant sang et eau au sujet de 
Martine, le sort de la civilisation était 
en jeu. Je ne blague pas. Par exem- 
ple, tous les surhommes de la région 
demandaient au moyen de quelles 
armes ils pourraient prendre en main 
les affaires de l'humanité... 


Moi, je conduisais sans savoir où j'al- 
lais, et je me dis: 

” Ce que je devrais demander à ces 
cinglés de TI, c’est comment sortir de 
ce gâchis. Mais ce qu’ils me donne- 
raient, c’est un moyen de me débar- 
rasser sans risque de Martine. Je 
veux qu'on me fiche la paix! Je 
veux pouvoir devenir un menteur qui 
raconte aux jeunots quels trucs for- 
midables il à faits, sans risquer de 
tout foutre par terre en les faisant 
vraiment. ” 


Je tournai à droite, au hasard dans 
ma camionnette. 

” Oui, me dis-je, amer. Le monde 
était beau jadis. Je pouvais rentrer 
chez moi sans avoir des crampes 
d'estomac à force de me demander 
si une blonde ne vient pas d'appeler 
ma femme pour lui annoncer nos 
fiançailles. Je pouvais me servir d’un 
TI sans voir apparaître une chambre 
d'hôtel dans laquelle la même 
blonde s’aère l’épiderme, tournant 
mes pensées vers des choses que je 
dois éviter. 

Peut-être... ” 


Puis je me souvins que ma femme 
allait certainement dire que c'était ma 
faute si quelqu'un apprenait un jour 
tout sur notre vie privée. ” C'était 
chouette, ai-je pensé, en me rappe- 
lant les beaux jours d’avant-hier 
matin. On était heureux, et voilà 
qu’une sacrée machine est arrivée à 
tout fracasser. ” 


C'est à ce moment que je compris 
tout en un éclair. La banque n'est 
pas construite de manière à pouvoir 
manipuler elle-même ses propres 
programmes. Les programmes sont 
exclusivement manipulés par des TI 
et protégés par des clés particulières. 
Seul un TI peut y accéder pour fabri- 
quer ce nouveau service. Les 
hommes n’y seraient jamais arrivés. 
Seul un TI peut avoir assimilé toutes 
les données nécessaires pour faire 
travailler les autres TI de cette 
façon. 


Il n’y avait qu'un moyen de s’en as- 
surer. Je m'’arrêtai devant un restau- 
rant, me dirigeai vers le TI et mis une 
pièce dans la fente. Puis je tapai : 

” Est-ce qu’un TI peut être pro- 
grammé de façon à coopérer dans 
des prévisions à longue échéance 
trop compliquées pour le cerveau 
humain ? ” 


L'écran crachota puis dit : ” Très cer- 
tainement. 

— Cela exige-t-il des programmes 
longs et complexes ? 

— Très petits. Il s’agit en fait de mo- 
difications de détail à apporter dans 
certains circuits intégrés, modifica- 
tions si petites que les calibres les 
plus précis ne pourraient les déceler. 
De telles modifications ne pourraient 
survenir qu’à la suite d’un accident 
tout à fait improbable, dont nous ne 
connaissons qu’un seul exemple. 


=S 
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- Ce TI accidentellement modifié 
peut accomplir des tâches d’une très 
grande importance. Est-il possible de 
le retrouver ?” 


L'écran crachota. J'étais trempé de 
sueur. J'avais peur que mon Joe ne 
devienne méfiant. Mais la question 
que j'avais posée était parfaitement 
logique, et les TI ne savent pas men- 
tir. Ils disent toujours la vérité; ils n’y 
peuvent rien. 


Un TI complet capable de faire le 
travail demandé se trouve actuelle- 
ment dans la famille”? 


Et il me donna l'adresse. J’y courus 
comme un dératé. Je rangeai ma ca- 
mionnette devant l'immeuble, un 
H.L.M. de proche banlieue, et mon- 
tai les escaliers à toute allure. Je son- 
nai et un gosse vint m’ouvrir. 


Je suis de: service d'entretien, lui 
dis-je. Nos fiches indiquent que votre 
TI peut avoir une panne d’un mo- 
ment à l’autre. Alors je suis venu le 
remplacer.” 


"D'accord !” répondit le gosse, tout 
heureux. Et il retourna au living où 
ses frères et soeurs étaient en train 
de regarder une émission. Je bran- 
chai l’autre TI et, consciencieux, 
m'assurai qu'il fonctionnait bien. Puis 
je leur dis : 


Voilà, les gosses. Maintenant vous 
vous servez de celui-là et j'enlève le 
vieux.” 





Ce disant, je jetai un coup d'oeil sur 
l'écran de Joe. Les enfants avaient 
sans doute demandé à voir de vrais 
cannibales. Alors Joe montrait un 
film probablement tourné au cours 
d’une expédition anthropologique sur 
une danse de fertilité de la tribu des 
Houba-Jouba d'Afrique Orientale. Il 
aurait dû être réservé aux professeurs 
d'anthropologie ou aux étudiants en 
troisième année de médecine. Les 
gosses regardaient ça avec le plus 
grand intérêt. Moi, j'étais marié 
depuis des années, alors je rougis 
jusqu'aux oreilles. 


Prudemment, je débranchai Joe. J’al- 
lai vers l’autre TI et demandai l’en- 
tretien. Pas de publicité pour le nou- 
veau service; on me le passa tout de 
suite. Je me sentis déjà bien mieux. 
Je leur dis que je rentrais directement 
chez moi parce que je m'étais foulé 
une cheville. J’eus une inspiration su- 
bite et ajoutai : 


"Dites donc, en tombant j'ai cassé le 
TI que je venais de remplacer. Je l’ai 
laissé sur place pour que les boueux 
le ramassent. 


- Si tu ne le ramènes pas pour qu’on 
en récupère les pièces, tu devras le 
payer, me dirent-ils. 


- Ca vaut le prix !” 


de rentrai chez moi. Martine n'avait 
pas appelé. J’allai tout de suite porter 
Joe à la cave. Si je le rapportais à 
l'atelier, ils récupèreraient les pièces 
et celle qui n’est pas dans la norme 
serait utilisée de nouveau pour une 
réparation. C'était un trop gros ris- 
que. Je l’ai payé et, ainsi, le pro- 
blème a été réglé. 


Voilà. Si vous dites que j'ai sauvé la 
civilisation humaine, vous ne risquez 
pas de vous tromper. Tant que Mar- 
tine vivra, je peux pas prendre le ris- 
que de le remettre en fonctionne- 
ment. Et puis ce n’est pas tout. Il y a 
les timbrés qui veulent transformer le 
monde, et tous ceux qui ont des 
problèmes” à résoudre. C’est embé- 
tant les problèmes, bien sûr, mais il 
vaut peut-être mieux les laisser 
comme ils sont. 


D'un autre côté, on pourrait peut- 
être dompter Joe pour le faire travail- 
ler raisonnablement. Il n’aurait pas 
de mal à me procurer un ou deux 
milliards de francs, même légers. 
Mais même si j'ai la sagesse de ne 
pas désirer la richesse et que je 
prends paisiblement ma retraite... 
Enfin ! Ca me plaira peut-être, ou 
peut-être pas. Si jamais j'en ai assez 
d’être vieux et de ne plus être capa- 
ble d’autre chose que de penser, je 
pourrai peut-être rebrancher Joe, 
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juste le temps de lui demander: 
Comment faire pour ne plus être 
vieux ?” Il trouverait sûrement le 
moyen de me donner la réponse. 


Pour le moment, depuis la fin de 
cette histoire, les TI se comportent de 
nouveau convenablement. C’est fou 
le nombre de services qu'ils peuvent 
rendre si on les utilise bien, même 
sans parler du service spécial” que 
Joe avait mis en place. Chaque mai- 
son, chaque appartement possède 
son TI. On en trouve même dans les 
rues, à la place où, il y a seulement 
cinq ans, il y avait encore de ces 
vieilles cabines téléphoniques dont 
les appareils étaient toujours cassés. 


Plus aucune famille ne peut se passer 
de sa machine, que ce soit pour 
communiquer au moyen du service 
de vidéophonie, ou pour mémoriser 
toutes sortes d'informations : recettes 
de cuisine, courrier, factures, compte 
de chèques etc. Des gosses jouent à 
la bataille navale d’une ville à l’autre. 
La banque centrale donne chaque 
jour des idées de menu en fonction 
de la saison et du budget de la mé- 
nagère. Et je ne parle pas des rensei- 


Vous avez sans doute longtemps 
traité vos textes comme moi, c’est-à- 
dire tout simplement avec une paire 
de ciseaux, un flacon de gomme ara- 
bique, celui-ci remplacé plus tard par 
le bâton de colle. Le résultat de ces 
découpages et collages était une 
feuille de papier à plusieurs épais- 
seurs ressemblant plus à une carte en 
relief du Massif Central qu’à un texte 
devant partir chez l’imprimeur. En 
outre, les ratures et corrections, plu- 
tôt abondantes, rendaient le texte 
parfois difficile à lire. Cela n’était ce- 
pendant pas très grave puisque la 
première épreuve de l’imprimeur de- 
vait malgré tout être entièrement 
relue et comptait souvent plus de 
fautes que l'original. Ne vous est-il 
jamais arrivé de trouver dans la cin- 
quième épreuve des fautes que vous 
n'aviez jamais remarquées dans les 
épreuves précédentes ? 


Tout cela est désormais du passé : la 
machine à traitement de textes résout 
à présent ce genre de problèmes. Il 
subsistait cependant la question du 
prix de cette machine: un équipe- 
ment professionnel dans ce domaine 
coûtait environ 30.000 francs (ou 
plus) sans compter le programme de 
traitement de texte lui-même. En 
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gnements et réservations sur les 
avions et les trains, service qui fut 
l’un des premiers installé sur les Ter- 
minaux intelligents. Et si quelques 
maniaques veulent se défouler, ils 
peuvent toujours se programmer 
leurs propres applications, si toutefois 


celles qui leur sont proposées par la 
banque ne leur conviennent pas. 


À y repenser, j'ai des frissons dans le 
dos quand je me souviens que ce 
sacré Joe a failli mettre tout ça en 
Fair; 


ŒLA FAÏSAIÏT MAINTENANT SEPT 
ANS, CE 28 MAI 1483, QUE 





TI-Writer à l’essai 


outre, on n'avait pas pour ce prix de 
programme comportant l’accentua- 
tion propre à la langue française. 


Les possesseurs du TI-99/4A possè- 
dent déjà une partie de l’équipe- 
ment. Il leur manque peut-être quel- 
que chose, mais ils ont le matériel de 
base pour utiliser le programme TI- 
WRITER. Il s’agit là d’un excellent 
programme de traitement de texte 
coûtant environ 1.000 francs aux 
Etats-Unis. La configuration néces- 
saire pour l'utiliser est la suivante : 


console TI-99/4A; 
boîtier d'expansion; 
carte d'extension de mémoire; 


un lecteur de disque avec son 
contrôleur; 


interface RS232; 


= 


imprimante à 
ligne. 


80 caractères par 


Vous objecterez sans doute qu’une 
machine de traitement de texte avec 
un écran ne permettant de placer 
que 28 caractères par ligne, cela ne 
peut guère être intéressant. Erreur : 


Thomas Coppens 


le TI-WRITER peut aussi travailler 
avec 40 caractères par ligne. Vous ne 
disposerez évidemment pas des lutins 
(sprites), mais vous n’en avez pas 
vraiment besoin lorsque vous traitez 
un texte. Savez-vous à ce sujet qu’il 
existe un ensemble de programmes 
permettant de disposer en BASIC de 
40 caractères par ligne? Le VDP 
(Video Display Processor) tient en 
fait bien d’autres propriétés en ré- 
serve et l’on peut affirmer sans 
crainte de se tromper que les possibi- 
lités du TI-99/4A sont loin d’être 
épuisées. Il est d’ailleurs dommage 
que la plupart des possesseurs de cet 
appareil ne s’en servent que pour 
des jeux électroniques. 


Mais revenons à ce qui nous oc- 
cupe : comment se présente le TI- 
WRITER? Il s’agit cette fois encore 
d’un module à enficher dans la 
console, tout comme un simple mo- 
dule de jeu ou comme l’Extended 
Basic. Dès l'allumage de la machine, 
module en place, apparait à l'écran 
l’image d’essai puis le choix entre TI- 
BASIC ou l’une des sept langues de 
TI-WRITER. Le choix d’une langue 


-détermine l’utilisation d’une police de 


caractères (une police de caractères 
est l’ensemble des caractères disponi- 
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bles sur une machine à un moment 
donné) propre à cette langue. En ce 
qui concerne le français, vous dispo- 
serez donc des accents ainsi que du 


2,99 


ç” sur l’écran. Formidable, non? 


Pour commencer l'exploration de ce 
programme, commençons à taper un 
texte et constatons de suite notre 
première surprise : on dispose de fe- 
nêtres à l'écran. Celui-ci permet en 
effet non seulement de lire 40 carac- 
tères par ligne mais aussi les colon- 
nes 20 à 60 ou 40 à 80. Le texte 
peut par conséquent comporter 80 
caractères par ligne. 


Le TI-WRITER est accompagné d’un 
manuel complet ainsi que d’une dis- 
quette de démonstration. La version 
dont je dispose est d’origine améri- 
caine et donc rédigée en anglais. 
Texas Instruments France s'occupe 
actuellement de faire traduire le ma- 
nuel et la disquette : un peu de pa- 
tience donc! 


Il est recommandé de lire très attenti- 
vement le manuel avant de commen- 
cer à taper son premier texte. Au fur 
et à mesure de cette lecture, vous 
serez étonné de toutes les possibilités 
qui vous sont offertes. Vous pourrez 
par exemple changer la couleur des 
caractères et du fond sur lequel ils 
apparaissent, rechercher automati- 
quement un mot dans le texte (il faut 
moins d’une seconde pour trouver le 
mot XYZ” disposé en fin d’un texte 
long en partant de la première ligne : 
peut-on encore parler de la lenteur 
du TI-99?). Vous pouvez aussi rem- 
placer un groupe de caractères par 
un autre et pour cela vous disposez 
de trois méthodes possibles : 


® vous remplacez seulement le pre- 
mier groupe de caractères rencontré 
correspondant à celui que vous re- 
cherchez; 


e vous remplacez tous les groupes 
de caractères correspondant et se 
trouvant dans le texte; 


e vous décidez au coup par coup; 
c'est-à-dire que l'ordinateur recher- 
che chaque groupe correspondant et 
vous demande à chaque fois s’il doit 
procéder à la substitution. 


Vous pourrez aussi, bien entendu, 
supprimer une partie du texte ou in- 
sérer du texte supplémentaire, sup- 
primer ou insérer un ou plusieurs pa- 
ragraphes, recopier automatiquement 
une ligne, placer des tabulations, 
vous pouvez, vous pouvez... Qu'est- 
ce donc qui n’est pas possible? 


Combien de caractères pensez-vous 
pouvoir traiter? Ne tombez pas à la 
renverse en apprenant que la ré- 


JE NE PEUX PAS TAPER, 
CE M'EST PAS ON ORDINATEUR { 


ponse est de 23.000 caractères (il 
faut donc disposer de l'extension mé- 
moire de 32K pour exploiter toutes 
les possibilités du TI-WRITER.). 


Que peut-il faire de plus ? 


e déplacer des paragraphes entiers ; 


@ insérer des titres ou sous-titres 
dans le texte ; 


e rédiger des lettres personnalisées 
combinées avec une liste d'adresses : 


@ avec la commande ”’RECOVER 
EDIT”, retrouver un texte effacé par 
mégarde (il vous faudra tout de 
même un minimum d'expérience !). 


Lorsque votre texte est tapé sur 
l'écran, vous avez la possibilité de le 
faire imprimer sur papier sous une 
forme plus élaborée. Vous disposez 
pour cela de plusieurs fonctions : 


» 


e numérotation des 
pages ; 

e détermination du nombre de 
lignes à mettre dans chaque page ; 


automatique 


© insertion d’un en-tête après cha- 
que saut de page ; 


® insertion d’une note en bas d’une 
page comportant un renvoi ; 


e centrage d’une partie de texte ; 
®e impression en caractères gras ; 


© marge à droite par insertion auto- 
matique de ”blancs” supplémentai- 
res. 


On dispose en tout de 28 comman- 
des de mise en page ! 


ce 
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La division automatique des mots est 
impossible, le TI-WRITER ne com- 
portant pas les règles de césure pro- 
pres à chaque langue. Il ne divise 
donc pas les mots et reporte un mot 
trop long au début de la ligne sui- 
vante (cette possibilité peut cepen- 
dant être mise hors fonction). 


Je ne peux conclure qu’en affirmant 
encore une fois l'excellente qualité 
du programme TI-WRITER qui ex- 
ploite à fond les possibilités du pro- 
cesseur 9900. Le programme est 
d’ailleurs écrit par Microsoft, une so- 
ciété mondialement connue pour ses 
logiciels  micro-informatiques : une 
bonne garantie de qualité. Il est d’un 
maniement très facile une fois qu’on 
l’a bien en main. Si vous doutez des 
possibilités du TI-99, offrez-vous le 
TI-WRITER et vous changerez d'avis! 


Il est intéressant de savoir aussi que 
le TI-WRITER peut utiliser les ta- 
bleaux de chiffres rédigés au moyen 
du programme Multiplan, autre pro- 
duit de Microsoft disponible sur le TI- 
99. Enfin, il faut bien souligner que 
le texte se présente à l'écran de la 
même façon qu'il sera imprimé sur le 
papier, ce qui n’est pas le cas de 
tous les programmes de traitement 
de texte tournant sur micro-ordina- 
teurs. 


NDLR : L'’enthousiasme de notre ami 
Thomas Coppens (notre rédacteur 
en Belgique) ne peut être conforté, 
ou compensé, par nous car nous 
n'avons pas encore eu l’occasion de 
tester le TI-WRITER. Dès que nous 
le pourrons, nous apporterons notre 
grain de sel à cette analyse bien sym- 
pathique. 
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Henry Purcell était un musicien an- 
glais du 17ème siècle, sans doute le 
plus grand musicien que l’Angleterre 
ait enfanté. Le programme que je 
vous présente n’est donc pas un jeu 
guerrier, comme son titre pourrait le 
laisser croire, mais un programme 
faisant jouer de la musique par le TI- 


Je ne savais trop comment occuper 
mes dernières vacances de Pâques. 
Alors, après quelques disputes avec 
les membres de ma famille, j’ai mo- 
nopolisé pendant cinq jours entiers 
notre ordinateur en me fixant pour 
but de lui faire jouer cette musique 
tout en présentant la partition à 
l'écran. J’ai commencé par travailler 
sur la partition elle-même. En pre- 
mier lieu, j'ai recensé tous les carac- 
tères dont je devais disposer pour 
construire le graphisme. Il y a bien 
entendu les lignes des portées : il me 
fallait 4 lignes de portée, c’est-à-dire 
quatre séries de 5 lignes horizontales. 
Cela suppose bien entendu quatre 
clés de sol. 


Il me faut ensuite des notes. Sur la 
partition, cela ne semble pas poser 
de problème particulier. Il y en a ce- 
pendant un de taille: lorsque l’on 
dispose une note sur une ligne, on 
efface obligatoirement un bout de 
cette ligne de chaque côté de la 
note. Il faut donc dessiner plusieurs 
catégories de notes : 


note à disposer entre deux lignes ; 
note à disposer sur une ligne ; 


note à disposer au dessus de la 
portée ; 


note à disposer en-dessous de la 
portée. 


Une note est composée d’un rond 
noir surmonté d’une queue diffé- 
rente selon qu’il s’agit d’une 
noire” ou d’une ’croche”. Il me 
faut donc fabriquer quatre types de 
queues : noire vers le haut, noire 
vers le bas, puis croche vers le 
haut ou vers le bas. Enfin, dernier 
caractère à concevoir, le dièse : pas 
de difficulté car c’est le caractère 
35 dans le code ASCII du TI-99. 
Tous ces caractères sont construits 
dans les lignes 200 à 340 du pro- 
gramme. 


Ceci étant fait, il est alors possible 
de faire jouer une première fois la 
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Canon de Purcell 


mélodie. Je commence par tracer 
la portée sur l’écran (lignes 350 à 
390) et y apposer les clés de sol 
(lignes 400 à 430). Puis je fais 
jouer cette mélodie, sur une seule 
voie sonore, en faisant apparaître 
les notes sur les lignes de la portée 
au fur et à mesure qu’elles sont 
exécutées. L'exécution de chaque 
note comporte donc une instruc- 
tion CALL SOUND suivie d’autant 
de CALL VCHAR ou CALL 
HCHAR qu'il est nécessaire pour 
dessiner le signe musical corres- 
pondant. Le CALL SOUND est en 





premier car il ne bloque pas le dé- 
roulement du programme : le TI- 
99 ’lance” l'exécution de la note 
et, alors même que cette exécution 
se poursuit, il passe à l'instruction 
suivante, c’est-à-dire qu'il effectue 
de manière simultanée les CALL 
VCHAR ou HCHAR. 


Toute la mélodie se joue ainsi 
(lignes 440 à 1530) puis, après un 
délai d’attente (ligne 1530), débute 
le canon proprement dit. Pour 
ceux qui ne le sauraient pas, je 
rappelle ce qu’en termes musicaux 
représente un canon: plusieurs 


Claire Arribet 


chanteurs ou instruments sont pré- 
sents. L'un d'eux commence l’exé- 
cution d’un morceau. Lorsqu'il a 
terminé la première phrase de ce 
morceau et entame la seconde, le 
deuxième musicien commence à 
son tour l'exécution de la pre- 
mière. Le troisième décale ensuite 
son départ du temps d’une phrase 
musicale, et ainsi de suite (en fait il 
est rare de voir des canons à plus 
de trois voix.). 


Le programme commence par mo- 
difier la couleur du fond de l’écran 
et affiche le mot CANON” au bas 
de celui-ci (ligne 1540). J'ai choisi 
de ne pas effacer les notes des 
lignes de portée, mais d'indiquer 
au moyen d’un lutin de couleur 
(sprite) la note sur laquelle se 
trouve chacune des trois voies so- 
nores. J’ai donc défini trois lutins 
en forme de tête de flèche orientée 
vers le haut pour remplir cette 
fonction (lignes 1550 et 1560). 


Le jeu du canon commence en- 
suite par la première voie sonore. 
Chacune des lignes d'instructions 
est composée d’un CALL SOUND 
suivi d'un CALL LOCATE qui dé- 
termine la place du lutin corres- 
pondant, juste sous la note qui est 
jouée (lignes 1570 à 1730). Puis la 
deuxième voie sonore entre en 
jeu : les instructions deviennent un 
peu plus complexes (lignes 1740 à 
1900). 


La suite du morceau peut être pro- 
grammée différemment. En effet, 
chaque voie reprend ce que vient 
de jouer la voie précédente. Il est 
alors aisé de composer une boucle 
dans laquelle une voie joue tou- 
jours la même mélodie mais où 
seule la couleur des lutins change. 
De la sorte apparaissent bien à 
l'écran trois lutins de couleurs diffé- 
rentes se déplaçant alors que l'on 
entend trois voies sonores (lignes 
1910 à 2170). 


La ligne 2180 exécute l'accord 
final, puis, après un temps d’at- 
tente (ligne 2190), on efface les 
lutins et on renvoie le programme 
à son début (ligne 2200). On ne 
fait évidemment pas GOTO 100 
mais GOTO 360 car il est inutile 
de préciser une deuxième fois la 
forme des caractères qui restent 
définis tant que l’on n’a pas arrêté 
le programme. 
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Je ne voudrais surtout pas avoir 
l'air de me vanter, mais je constate 
que tous ceux qui ont vu tourner 
ce programme l'ont trouvé très 
spectaculaire. Je crois que le mode 
d'écriture que j'ai choisi est perfec- 
tible. Il existe certainement une 
autre façon de concevoir un pro- 
gramme pour l'exécution de ce 
canon. Celle que j'ai choisie m'a 
semblé présenter l’avantage de la 
simplicité : la lecture seule du lis- 
ting donne une bonne idée de ce 
que fait le programme. 


Une dernière précision pour termi- 
ner: si vous disposez d’un boîtier 
d'expansion sur votre TI-99, vous 
ne pourrez pas sauvegarder et rap- 
peler ce programme tel qu’il est sur 
une cassette, car il est trop long. Il 
faut donc en taper une première 
moitié, la sauvegarder, puis taper 
la deuxième moitié et la sauvegar- 
der avec MERGE. Pour rappeler 
ensuite le programme à partir du 
magnétophone, on entre la pre- 
mière moitié normalement et la 
deuxième avec MERGE. 


NDLR : sur la cassette d'accompa- 
gnement de ce numéro (cassette 
99-2), le programme est enregistré 
en entier sans MERGE. Les pos- 
sesseurs d’un boîtier d'expansion 
devront débrancher celui-ci avant 
de commencer le chargement du 
programme. 


+ 7 
+ ; 


EREERÉERÉEERERELREREE 


# CANON DE PFURCELL +# 


ÉÉEKÉÉEREERÉÉEREHELS 


100 
110 
120 
130 
140 
150 
160 


170 


REM 
REM 
REM 
RE HR EE EE NÉE UE 
RENM + COPYRIGHT 99 MAGAZINE + 
REM # ET CLAIRE RRRIBET + 
REM HKKEEEEEREREEEMERENMRERÉEEX 
REM 

1990 CALL CLESR 

190 CALL SCREEN(10):: 
EF: "CANON DE FURCELL" 
200 CALL CHAR(96,"FF"):: CALL CHAR(97,"F 
F01010101010101FF0890809080808908") 

205 REM CLE DE SOL(40 4 47) 

210 CALL CHAR (40, "FF18292424242424FF2424 
PARADATAROFFEOROÉOANOICESFFAIAIZLIZIZEAA 
78") 

220 CALL CHR (44, "FF202020A0A040009FF0000 


DISPLAY AT{11,7)HE 


230 CALL CHAR (60, "FF1824241C047418FF 1824 
243C42423C") 

240 CALL CHAR (48, "FFOOO000406060808FF 0404 
GAG4G4OG404FFA0808000808080FFA0ALCOB") 
250 CALL CHAR(S2, "FFO06050505040404FF 0404 
DAAICYCFCFFF87") 

269 CALL CHBR(Sé6, "FFOG000000387CFCFFF8FO 
8080808080FF8080A04040C08") 

270 CALL CHAR(88, "FFO0387CFCFCFBFOFFIC7C 
FCFCF87") 

290 C8LL CHAR (104, MFFOOOMOÉNSAONLOSFFENR 
OCOB0ANCOBOFFO00000404040404FF 8808080808") 
290 CALL CHAR(112, "FFO00001O1O10101FFOIC 
10101010101FF00000080404040FF0F1FSF3FSE 
653 

200 CALL CHâR(116, "FFO00O2030287828FF 010 
307070707200 FFE0E0ENEOCO9") 

310 CALL CHÉR (120, "FFONSOB80BONONONOFFOTO 
20202020702FF0207FFO021E3E7EFF7C28") 

320 CALL CHAR (124, "FFO0002020202020FF 202 
020720707070 FF06405040840504040000000000787 
CFC") 

330 CALL CHAR(128, "FF09090909090909FF090 
36969090909FF8080808080808") 

340 CALL CHAR(III,"FF1610541641C341400000 
01818081000FFO00000000C0C000FFO00C0C") 

350 FOR X=1 TO 500 :: NEXT X 

355 REM TRACE DE LA FORTEE 


360 CALL CLEAR 3:35 CALL SCREÉEN‘11) 


570 FOR I1=2 TO 25 STEF 6 

380 CALL HCHBR(T,1,96,160):: CALL VCHAR( 
1,32,97,4) 

NEXT I 

REM TRÈCE DES CLES DE SOL 
Azitéx] 55 X= 
IF lié THEN Y=û+s]I EL 


390 
598 
400 FOR J=0 TO 3 :: 
410 FOR Izi TO 7 3: 
SE Y=Â+I-T :3: X=2 
420 CALL HCHAR(Y,X, 3947): 
TJ 
450 
61) 
435 
UEES | 
445 CALL COLOR(S,14,11,6,14,11,7,14,11) 
450 DISPL&Y AT(1,1)SIZE(16): "CANON DE FU 
RCELL" DISFLAY AT(24,4)S1I7E (7): "MELOD 
JE" FOR I=i TO 150 5: NEXT I 

480 CALL SOUND (300, 44,0) 
475 CALL HCHAR(Z,6,48):: 
49)z:: CALL HCHBR (A, 8,89) 
480 C8LL SOUND(600,587,0) 
490 CALL VCHAR(2,7,98,4)2: 
8,56):: CALL HCHBR(S,8,57)3: 
4,8,107) 

500 CALL SOUND (EG, 440,0) 
519 CALL HCHBR(3,10,116):: CALL HCHAR(CE, 
19,125):: CALL HCHAR(4,10,1189):: CALL HC 
HBR (4,9,117) 

320 CALL SOUND(é00,349,0) 

530 CALL HCH8R(3S,11,106):: CALL HCHAR(A, 
11,49):: CALL HCHAR(S,11,89) 

340 CALL SOUND(300,294,0) 

550 CALL HCHAR(4,13,48):: CALL HCHAR(S, 1 
3,49):: CALL HCHBR(E, 13,89) 

560 CALL SOUND (600,440, 0) 

570 CALL HCHBR(2,15,106):: CALL HCHAR(S, 
15,49):: CALL HCHAR(4,15,89) 

580 CALL SOUND(30G,494,0) 
590 CALL HCHAR(2,17,92)3: 
7,53):: CALL HCHAR(4,17,54)3: 
(2,18,98,4) 

600 CALL SOUND (400,525, 0) 

610 CALL HCHAR(S,19,898):: CALL HCHAR(A,1 
9,50):: CALL HCHBR(S5,19,107):: CALL HCHA 


e 
De | 


NEXT I ss: NEX 


CALL HCHARIS,4,60):: CALL HCHÉR (4,4, 


REM MELODIE ET ECRITURE DES NOTES JO 


CALL HCHAR(S,6, 


CALL HCHAR(2, 
CALL HCHAR( 


CALL HCHBRIS, 1 
CALL VCHAKR 





:)!) MAGAZINE n° 2 


R(1,20,132) 

20 CALL SOUND (300,554, 0) 
630 CALL HCHAR(3,20,131):: 
21,88):: CALL HCHAR(4,21,50):: 
R(S,21,51) 

640 CALL SOUND(600,587,0) 

50 CALL HCHAR(2,23,56):: CALL HCHAR(E, 2 
3,57):: CALL HCHAR(4,23,107) 
bé CALL SOUND(300,440,0) 

870 CALL HCHAR(2,25,48):: CALL HCHAR(E,2 
5,49):: CALL HCHAR(4,25,89) 

480 CALL SOUND (600,898, 0) 

850 CALL HCHAR(1,27,127):: CALL HCHAR(2, 
27,57):: CALL HCHAR(3,27,107) 

700 CALL SOUND(150,659,0) 

710 CALL HCHAR(2,29,88):: CALL HCHAR(E,2 
9,50):: CALL HCHAR (4,29, 105) 

720 CALL SOUND(150,587,0) : 

730 CALL HCHAR(?,31,56):: CALL HCHAR(S,3 
1,57):: CALL HCHAR(4,31,105) 

740 CALL SOUND (600,587, 0) 

750 CALL HCHAR(8,5,56):: CALL HCHAR(9,S, 
S7)s:: CALL HCHAR(10,5,107) 
760 CALL SOUND(300,554,0) 
770 CALL HCHAR(9,7,131):: 
.B8):: CALL HCHAR(10,8,50):: 
11,8,51) 

780 CALL SQOUND (600,587, 0) 
790 CALL HCHAR(8,10,56):: CALL HCHAR(9, 1 
0,57):: CALL HCHAR(10,10,107):: CALL HCH 


CALL HCHBRES, 
CALL HCHA 


CALL HCHAR(9,8 
CALL HCHBR( 


AR(7,11,132 
800 CALL SOUND (300,554, 0) 
810 CALL HCHAR(9,12,131):: CALL HCHAR(, 


13,88):: CALL HCHAR(10,13,50):: CALL HCH 
AR(11,13,51) 
870 CALL SQOUND (600,587, 0) 

30 CALL HCHAR(8,15,56):: CALL HCHAR(9,1 
5,57):: CALL HCHAR(10,15,107) 
840 CALL SOUND (300,659, 0) 
250 CALL HCHAR(8,17,88):: CALL HCHAR(9, 1 
7,50):: CALL HCHAR(19,17,51) 
860 CALL SOUND (600, 498, 0) 
870 CALL VCHAR(8,18,97,4):: 
.20,127):: CALL HCHAR(8,20,97):: 
HAR (9,20, 107) 
880 CALL SQUND(300,3927,0) 
890 CALL HCHAR(9,22,52):: CALL HCHAR (10, 
22,5%):: CALL HCHAR(11,22,54) 
900 CALL SOUND (600, 349,0) 
910 CALL HCHAR(9,24,106):: CALL HCHAR(IO 
.24,49):: CALL HCHAR(11,24,89) 
920 CALL SOUND(300, 294,0) 
530 CALL HCHAR(10,27,114):: CALL HCHAR(I 
0,26,112):: CALL HCHAR(11,26,11%):: CALL 
HCHAR (12,26, 115) 
940 CALL SOUND (600, 440,0) 
950 CALL HCHAR(8,29,124):: CALL HCHAR(9, 
29,125):: CALL HCHAR(10,29,118):: CALL H 
CHAR (10,28,117):: CALL HCHAR(7, 30, 132) 


CALL HCHAKR(7 
CALL HC 


:){) MAGAZINE n° 2 


G80 CALL 
979 CALL 
Stio2)rs 


980 CALL 


SOUND (300,392, 0) 

HCHAR(9,31,52):: CALL HCHAR(1O, 

CALL HCHAR (11,31,54) 

SOUND (600, 349, 0) 

960 CALL HCHAR(15,5,106):: CALL HCHAR(16 

.5,49):: CALL HCHAR(17,5,89) 

1000 CALL SOUND (300,330, 0) 

1010 CALL HCHAR(16,7,52):: CALL HCHAR(17 

CALL HCHAR(18,7,54) 

1020 CALL SOUND (4600, 294,0) 

1030 CALL HCHAR(16,9,106):: CALL HCHAR (I 

7,9,49):: CALL HCHAR(18,9,89) 

1040 CALL SOUND (300,349, 0) 

1050 CALL HCHAR(15,11,48):: CALL HCHAR(I 

6,11,49):: CALL HCHAR(17,11,89) 

1960 CALL SOUND (600,440, 0) 

1070 CALL HCHAR(14,13,106):: CALL HCHAR( 

15,13,49):: CALL HCHAR(16, 13,89) 

1080 CALL SOUND{300,220,0) 

1090 CALL HCHAR(17,16,120):: CALL HCHAR( 

17,15,121):: CALL HCHAR(18,15,122):: CAL 

L HCHAR (19,15, 123) 

1100 CALL SQUND (600,294, 0) 

1110 CALL VCHAR(14,17,130,4):: CALL HCHA 

R(16,18,124):: CALL HCHAR(17,18,125):: C 

ALL HCHBR(18,18,118):: CALL HCHAR(18,17, 

117) 

1120 CALL SOUND (300,659, 0) 

1130 CALL HCHAR(13,19,132):: CALL 

14,20,88):: CALL HCHAR(15,20,50):: 

HCHAR (16, 20,51) 

1140 CALL SOUND(400,698, 0) 

1150 CALL HCHAR(13,22,127):: CALL 

14,22,57):: CALL HCHAR (15,227, 107) 

1160 CALL SOUND (300,554, 0) 

1170 CALL HCHAR(15,24,131):: CALL HCHAR( 

15,25,88):: CALL HCHAR(16,25,50):: CALL 

HCHAR (17,25,51) 

1180 CALL SOUND (450,587, 0) 

1190 CALL HCHAR(14,27,56):: 
7,57):: CALL HCHAR(16,27,58):: 

CHAR (14,28, 133) 

1200 CALL SOUND(150,659, 0) 

1210 CALL HCHAR(14,29,88):: CALL HCHAR(I 

5,29,50):: CALL HCHAR (16,29, 105) 

1220 CALL SQUND (300,698, 0) 

1230 CALL HCHAR(13,31,127):: CALL HCHOR( 

14,3%1,57):: CALL HCHAR(15,31,58) 

1240 CALL SOUND(450,587,0) 

1250 CALL HCHAR(20,5,56):: CALL HCHOR (21 

.5,57):: CALL HCHAR(22,5,58):: CALL HCHA 

R(20, 46, 133) 

1260 CALL SOUND (150,554, 0) 

1270 CALL HCHAR(21,7,131):: CALL HCHAR(Z 

1,8,88):: CALL HCHAR(22,8,50):: CALL HCH 

AR (23,8, 105) 

1280 CALL SOUND (300,587, 0) 

1290 CALL HCHAR(Z0,10,56):: CALL HCHAR(Z 

1,10,57):: CALL HCHAR(22, 10,58) 


130922 


HCHAK( 
CALL 


HCHBR 


CALL HCHAR (1 
CALL H 


E 7 
ds 
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1300 CALL SOUND (600,659, 0) 
1310 CALL HCHAR (20, 17,88):: 
1,12,50):: CALL HCHOR(22,12,107)2: 


uses 
1% 1592} 


HCHAR (19,13, 132 
1320 CALL SOUND (300,459, 0) 

1330 CALL HCHAR(20,14,88):: CALL HCHAR(2 
1,14,50):: CALL HCHAR(22, 14,51) 

1340 CALL SOUND (600,440, 0) 
1350 CALL HCHAR(20,16,124):: 
21,16,129):: CALL HCHAR(22,16,118):: 
L HCHAR(22,15,117) 

1360 CALL SOUND (300, 392, 0) 
1370 CALL HCHAR(21,17,92):: 
2,17,53):: CALL HCHAR(23,17,54):: 
CHAR (20, 18,98,4) 

1380 CALL SOUND (450,349, 0) 

1:90 CALL HCHAR(21,19,48):: CALL HCHAR(Z 
2,19,49):: CALL HCHAR(23,19,89):: CALL H 
CHAR (2, 20,134) 

1400 CALL SOUND (150,392, 0) 

1410 CALL HCHAR(21,21,126):: CALL HCHAR( 
22,21,53%):: CALL HCHAR(23,21,54) 

1470 CALL SOUND (300,449, | 
1430 CALL HCHAR(20,23,48):: CALL HCHAR(2 
1,23,49):: CALL HCHAR(22, 23,89) 
1440 CALL SOUND (450, 349, 0) 
1450 CALL HCHAR (21,25, 48) : : 
2,25,49):: CALL HCHAR(23,25,89):: 
CHAR (23, 26,174) 

1460 CALL SOUND (150,320, 0) 

1470 CALL HCHAR(22,27,126):: CALL 
23,27,53):: CALL HCHAR(24,27,54) 
1480 CALL SOUND (300,294, 0) 

1490 CALL HCHAR(?2,29,48):: CALL HCHARCZ 
3,29, CALL HCHAR(24,29,89) 

1500 SOUND (2000,587,0,294,0,147,5) 
1510 CALL HCHAR(?2,31,106):: CALL HCHAR( 
23,31,49):: CALL HCHAR(24,31,89) 

1520 CALL VCHAR (20,32, 128,4) 

1530 FOR F=1 TO 1000 :: NEXT F 

1525 REM CANON ET INDICATION DES NOTES J 
QUEES {LUTINS) 

1540 CALL SCREEN(IZ2):: CALL COLOR(S,14,1 
2,6,14,12,7,14,12):: DISPLAY AT(24,4)SIZ 
E{7):" CANON" :: CALL VCHAR(21,32,129,2) 
1550 CALL CHER(94, "O010387CEE") 
1560 CALL SFRITE(#1,94,9,200,30):: CALL 
SPRITE (#2,94,3,200,40):: CALL SPRITE(#3, 
94,5,200,50) 

1570 CALL SOUND(300,440,0):: 
(#1,32,41) 

1580 CALL SOUND(600,587,0):: 
(#1,32,57) 

1590 CALL SOUND (300,440, 0): : 
(#1,32,70) 

1600 CALL SOUND(600,349,0):: 
(#1,49,81) 

1619 CALL SOUND (300,294, 0): : 
(#1,49,97) 


CALL HCHAR (2 
CALL 


CALL HCHAR: 
CAL 


CALL HCHBKR(S 
CALL V 


CALL HCHAR (2 
CALL H 


HCHBR ( 


CALL 


CALL LOCATE 


CALL LOCATE 


CALL LOCATE 


CALL LOCAÂTE 


CALL LOCATE 


1820 CALL SOUND(400,440,0):: 
(#1,32,113) 
1630 CALL SOUND(300,494,0):: 
(#1,28,129) 
1640 CALL SOUND(400,523,0):: 
(#1,36,145) 
1650 CALL SOUND(300,554,0):: 
(#1,36,161) 
1660 CALL SOUND(400,587,0):: 
(#1,32,176) 
1670 CALL SOUND(300,440,0)2: 
(#1,32, 193) 
1680 CALL SOUND(600,698,0):: 
(#1,24,208) 
1890 CALL SOUND(150,459,0):: 


(#1,32,223) 


1700 CALL SOUND(150,587,0):: 
(#1,32, 239) 
1710 CALL SOUND(400,587,0):: 
(#1,80,32) 
1720 CALL SOUND(300,554,0):: 
(#1,84,56) 
730 CALL SOUND(600,587,0):: 
(#1,80,72) 


1740 CALL SOUND(300,440,0,554,2):: 


LOCATE(#1,84,96,47,32,41) 


1750 CALL SOUND(400,587,0,294,3):: 


An ce 
ERA À 


Lys 


LOCATE (#1,80,112, 


1760 CALL SOUND(300,440,0,659,4):: 


LOCATE (#1,76, 128, #2,32,70) 


1770 CALL SOUND(600,349,0,698,7)2: 


LOCATE (#1,72,152,#2,40,81) 


1780 CALL SOUND(300,294,0,392,2):: 


LOCATE (#1,84,169,#2,48,97) 


1790 CALL SOUND(600,440,7,349,0):: 


LOCATE (#1,88, 185,#2,32, 113) 


1800 CALL SOUND(300,494,4,294,0):: 


LOCATE (#1,96, 203, #2, 28, 129) 


1919 CALL SOUND (600,8525,2,440,0)3: 


LOCATE {#1,80,222,42,36,145) 


1820 CALL SOUND(2:00,554,3,592,0):: 


LOCATE(#1,04,241,#2,36,161) 


1830 CALL SOUND (400,587,3,349,0):: 


LOCATE (#1,136,33,42,32,176) 


1840 CALL SOUND(300,440,2,330,0):: 


LOCATE (#1,140,49,#2,32, 193) 


1950 CALL SOUND(600,698,8,294,0):: 


LOCATE (#1, 144,65, #2, 24,208) 


1860 CALL SOUND(150,659,6,%49,0):: 


LOCATE (#1,136,81,#2, 32,223) 


1870 CALL SOUND(150,587,3,349,0):: 


LOCATE (42,32, 239) 


1980 CALL SOUND(600,507,2,446,0):: 


LOCATE (#1,128,97,#h2,80,32) 


1990 CALL SOUND(3:00,554,3,220,0):: 


LOCATE{#1,140,114,#2,84,56) 


1900 CALL SOUND (600,587,4,294, 0): 


LOCATE (#1,144,134,#2,80,72) 
1910 FOR X=1 TO 4 


:)!) MAGAZINE n° 2 


LOCATE 


LOCATE 


LOCATE 


LOCATE 


LOCATE 


LOCÂTE 


LOCATE 


LOCATE 


LOCATE 


LOCATE 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 





1920 CALL SOUND(300,440,0,554,2,659,8):: 
CALL LOCATE(#1,174,151,#2,84,96,43,32,4 
1) 
1930 
9) 
1940 
3) 


1950 


IF X=2 THEN CALL COLOR (#1,3,#2,5,#3 


IF X=3 THEN CALL COLOR(#1,5,4#2,9,#45 


IF X=4 THEN CALL COLOR(HK1,9,42,5,#35 


0 CALL SOUND(4600,587,0,294,3,698,6):: 

CALL LOCATE (#1,120,167,#2,80,112,#3,32, 
57) 

1970 CALL SOUND (300,440,0,659,6,554,2):: 
CALL LOCATE (#1,132,192,#2,76,128,H3,32?, 
70) 

1980 CALL SOUND(450,349,0,498,8,587,3):: 
CALL LOCATE (#1,128,208,#2,72,152,#3,40, 
g1) : 

1990 CALL SOUND(150,349,0,698,8,659,6):: 
CALL LOCATE(#1,128,224) 

2000 CALL SOUND(300,294,0,392,0,698,8):: 
C&LL LOCATE (#1,120,240,#2,84,169,#3,48, 
97) 

2010 CALL SOUND (450, 440,0,349,0,587,2):: 
CALL LOCATE (#1,176,32,42,88,185,#3,32, 1 
13) 

2020 CALL SOUND (150,440,0,349,0,554,2):: 
CALL LOCATE(#1,184,56) 

2030 CALL SOUND(300,494,0,294,0,587,2):: 
CALL LOCATE (#1,176,72,#2,96,203,#3,28, 1 

29) 

2040 CALL SOUND(600,523,0,440,0,659,6):: 
CALL LOCATE (#1,174,88,#2,80,222,#3,36, 1 

45) 

2050 CALL SOUND(300,554,0,392,0,659,7):: 
CALL LOCATE(#1,174,104,#2,84,241,#3,36, 


161) 
2060 CALL SOUND(600,587,0,349,0,440,1):: 
CALL LOCATE(#1,176,118,42,136,33,#3,32, 
178) 

2070 CALL SOUND(300,440,0,330,0,392,0):: 
CALL LOCATE (#1,180,129,42,140,49,#3,32, 
193) 

2080 CALL SOUND(450,698,5,294,2,349,0):: 
CALL LOCATE (#1,184,145,42,144,65,#3,24, 
208) 

2090 CALL SOUND(150,698,5,294,1,392,0):: 
CALL LOCATE (#1,180,161) 

2100 CALL SOUND(150,659,4,349,0,440,1):: 
CALL LOCATE(#1,176,177,42,136,81,4H3,32, 

223) 

2110 CALL SOUND(150,587,1,349,0,440,0):: 
CALL LOCATE (#3, 32,239) 

2120 CALL SOUND(450,587,0,440,0,349,0):: 
CALL LOCATE (#1,184,193,#2,126,97,#3,80, 
73 


Ji 


2130 CALL SOUND(150,587,0,440,0,330,0):: 
CALL LOCATE(#1,188,209) 

2140 CALL SOUND(300,587,0,294,0,147,5):: 
CALL LOCATE (#1,188,225,#2,148,113,#3,84 
.56) 

2150 IF X=4 THEN 2180 

2160 CALL SOUND(600,587,0,294,0,147,5):: 
CALL LOCATE (#1,188,241,#2,144,134,#3,80 
, 72) 

2170 NEXT X 

2180 CALL SOUND(2000,587,0,294,0,147,5): 
: CALL LOCATE(#1,188,241,42,144,134,43,8 

0,72) 

2190 FOR F=1 TO 1500 

2200 CALL DELSPRITE (ALL) :: 


se NEXE 
GOTO 360 


Chicken helper 


Claude Lamy 


Chicken Helper est un programme 

ui nous vient, lui aussi, du club TI- 
SOFT-HOME de Bruxelles. Il est 
basé sur le principe d’un jeu de bis- 
trot (ou d’estaminet) maintenant 
assez connu: un personnage essaie 
de traverser une route très fréquen- 
tée et il veut, bien entendu, éviter de 
se faire écraser. 


Le listing est très parlant, aussi ne 
fais-je ici qu’une très courte présenta- 
tion. Vous constaterez que les repré- 
sentations graphiques sont très clai- 
res. Notamment, la tache rouge 


50 REM HE EE EX 
COPYRIGHT 99 MAGAZINE +# 

ET PHIL BELJAREFF # 
80 REM HEURE MEME KE 


60 REM *# 
70 REM * 


JC) MAGAZINE n° 2 


laissée par le personnage qui vient 
de se faire ”’avoir” par une voiture 
est du plus bel effet. 


Il y a cinq piétons qui, chacun à son 
tour, tentent la traversée. Lorsque 
l'un d'eux a réussi, il recommence 
dans l’autre sens, et ainsi de suite 
tant qu'il ne lui est rien arrivé. Les 
autres, pendant ce temps, attendent 
patiemment. Le jeu se termine lors- 
que le cinquième piéton est détruit. 
Le score est le nombre de traversées 
réussies, s’il y en a, car ce jeu ré- 
clame une très grande habileté. 


‘90 REM 
100 REM 


110 ON BREAK NEXT 
::-CALL CLEAR :: 





:: CALL DELSPRITE (ALL) 
CALL MAGNIFY(S):s CALL 
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SCREEN(Z):: RANDOMIZE :: 
20 DEF F=INT (RND#11)+204+XXX 
CALL COLOR (0,15,15,13,6,1,14, 
L=170 
LAY AT(1Z,9)BEEF: "CHICKEN HELPER 
Y AT(14,8):"DE PHIL BELJAEFF" 


Fa rar à 


: "ÉPPUVEZ 


PLAY 

SUR UNE TO 

IF S=0 THEN 160 

170 CALL CLEGR s2 DISPLAY AT(1, 1): "OBJET 
A1! 3 CHICHENG': "8 TRAVERGER L°AU 
UTILISANT ?E° & x" 

{ AT(4,1):"(FLECHES HAUT ET Bé 


0 DISPLAY ATié, 1): "U0TRE SCORE ET LE N 
s"VIES FERDUES SERA RFFICHE":" 
"a 28 CHAQUE TRAVERSEE, V 


Une Ve Le 


[) ++ UE - 


3. Er 1 


ü DISFLAY A8T{11,1): "GAGNEREZ UNE CHANC 
: DE": "SURVIE SUPFFLEMENTRIRE. " 


FLAY AT(24,1): "UNE TOUCHE FOUR CO 


,K,S):: IF G=0 THEN 220 
MHIOBOOSISENN se 
2: DS=RPTS("0", 16) 
ALL CHAR (56, 
000 "EDS) 
280 CALL CHAR (100, "OO00O0AOFOFOA40000"ERDSE 
"O00C 
270 CALL CHAR (104, "001897F7F7F7F1800"2D88 
"OOCOFOF BF BFOCOOQ "EDS ) 
280 CALL CHAR (108, "O00CSF7F7F3F0C00"RDSS 
"OO60F BF SF BFB6000 "EDS ) 
20 CALL CHAR(112, "1SFFFFFFFFFEFF18"EDSe 
LHFCFEFEFEFEFCO0 "DS ) 
200 CALL CHAR(116,"OC7FFFFEFFFE7F0C"8D88 
FEFEFEFEFEFES0"&DS) 
: CALL CHAR (120, 


#84 "B0CO20TO0ONOOOONO") 


330 CALL CHAR (128,C$8"0201010700000000"& 
E$84"8908080E 000000") 


250 CALL CHAR(140, "0000070707030F 1F3F3F 1 
FOF3F 7200000200 0E0FOFCFOEOFOFGFCFCFSF 
930") 

360 CALL HCHBR(S,1,31,64):: CALL HCHAR (2 
1,1,31,64) 

270 FOR D=7 TO 19 STEF 


7 ns 
du 


CALL HCHAR{D 
CELL HCHAR(D+1,1,138,22):: 
CALL HCHAR (20, 1,137,32) 


0€ 


511136, 5273: 
NEXT D :: 
380 DISPLAY AT(2, 10) : "SCORE: 

PLAY ATUS, 1) :RPTS$ (CHR$ (132) ,9) 
390 DATA 96,100,104,116,96,100,112,116,1 


DIS 


2,100,104,108,104,116 
300 FOR D=1 TO 7 

410 READ GR 1: CALL 
*8-7,1,0,F,#D+7,R,2, ( 
NEXT D 
420 CALL SPRITE(#IS,128,5,55, 
430 CALL KEY(O,K,S) 
449 IF K=69 THEN A=-9 
450 IF K=88 THEN A=9 ELSE 
Le 
460 CAL 
ALL, 2): 


30 


SPRITE {4D,0,7, (D+6) 
D+13)#8-7,1,0,-F):: 


THEN GOSUE 810 :: GOTO 4 


470 IF Y£33 THEN @=0 :: CALL LOCATE (#15, 
33,121):: IF Wei THEN GOSUE 540 

480 IF Yr161 THEN @=û :: CALL LOCATE (HS 
.161,121):: IF W=0 THEN GOSUE 540 

490 CALL MOTION (HS, 4,0) 
506 CALL COINC(ALL,Z):3 
B 610 

Si IF L=170 THEN L=124 ELSE L=170 
520 CALL FATTERN(#IS;L) 

570 GOTO 430 

540 CALL MOTION(#15,0,0) 
550 CALL SOUND{300,415,0)s:: COLL SOUND(I 
00,110,30):: CALL SOUND(300,749,0)s: CAL 
L SOUND(100,110,30):: CALL SOUND(1000,27 
7,0) 

560 XXX=XXX+E 
55 SC=SC+1i :: 


IF 220 THEN GOSU 


15 XXX=MINEXXX, S0):: W=i-W 
NEN+ I 
70 CALL FATTERN(H1S,128):: IF N:29 THEN 
1 :: GOTO 589 :: ELSE Q=5 55 K 
380 DISPLAY 8T(2, 16): USING "HHHHUe GC 33 
DISPLAY AT(Q,1):RPTS$(CHRS (132) ,N-(R#28) ) 
590 FOR E=1 TO 7 :: CALL MOTION(HE,O,F,# 
E+7,0,-F):: NEXT E 
800 RETURN 
610 CALL MOTION(H15,0,0) 
6EQ NEN-1 2:23 IF NS:28 THEN Q=4 s2 FR 2 SE 
GOTO 6230 :: ELSE Q=5 5: R=û 
30 DISPLAY AT(Q,1):RPTS (CHARS (132) ,N-(Re 
Z8)} 
649 CALL' COLOR(H#15,9):: CALL FATTERN(HIS 
140) 
650 CALL SOUND(300,2270,0):: CALL SOUND(I 
00,220,30):: CALL SOUND(150,220,0):: CAL 
L SOUND(100,220,30):: CALL SOUND(2000,29 
4,0) 
6860 CALL SOUND(1,110,50) 
670 IF W=Q THEN CALL LOCATE(#15,33,121)E 
LSE CALL LOCATE(#15,161,121) 
68Q CALL COLOR(#15,5) 
6970 CALL FATTERN(#15,128):: 
RETURN 
700 DISPLAY AT(23,10):"TERMINE" 2: 
AY AT{24,10):"FAITES *REDO'" 
719 CALL KHEY(O,E,S):: IF K£ié THEN 710 E 
LSE RUN 


IF N50 THEN 


DESEL 
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La sauvegarde des fichiers et 
programmes 


Jean Sahal 


SAVE CS] : c’est la commande fa- 
milière à tous les utilisateurs du TI-99 
qui travaillent avec un petit budget. 
Sans doute considèrent-ils que 
l'usage non professionnel de leur or- 
dinateur ne justifie pas la dépense 
importante que représente l'achat du 
système de disquettes. Ce dernier est 
bien le plus pratique sous tous les 
rapports. Mais le magnétophone à 
cassettes reste pratiquement l'unique 
moyen de sauvegarder le précieux 
résultat de longues heures de travail. 
C'est cependant un procédé délicat 
qui réserve des déceptions inatten- 
dues, d'autant plus amères souvent 
que l’on a scrupuleusement respecté 
la marche à suivre. 


Les lignes qui suivent peuvent vous 
aider à éviter les pièges de l’utilisa- 
tion du magnétophone à cassettes. Il 
ne s’agit pas, évidemment, de para- 
phraser le mode d'emploi tel qu'il est 
écrit dans le manuel du TI-99 (qu’il 
est pourtant conseillé de lire attenti- 
vement !), mais de compléter ces ins- 
tructions par quelques remarques ins- 
pirées par la pratique de ce système. 


Nul n’est à l'abri d'incidents de par- 
cours, même l'amateur le plus che- 
vronné travaillant avec un magnéto- 
phone neuf qu'il consacre 
exclusivement à cet usage. Il faut 
comprendre qu’un programme est 
une chose fragile, faite de signaux 
traduisant des nombres binaires, eux- 
mêmes représentant des signes al- 
phanumériques ou spéciaux: chif- 
fres, lettres, ponctuation, etc. Il suffit 
d’un tout petit incident de transmis- 
sion pour que le programme soit 
démoli” et que le message ’ERROR 
DETECTED IN DATA” apparaisse. 
Parmi les causes d'incidents les plus 
fréquentes, on notera une installation 
électrique vétuste génératrice de 
faux contacts” produisant des para- 
sites, ou des potentiomètres (volume 
et tonalité) mal réglés; bref, tout ce 
qui empêche l'ordinateur de ”perce- 
voir” les signaux de manière absolu- 
ment parfaite. 


Le magnétophone à 
cassettes 


Si vous possédez déjà un magnéto- 
phone et si vous voulez l'utiliser pour 
votre ordinateur, il pourra faire l’af- 
faire, à condition toutefois qu’il soit 
pourvu des fiches “Jack” femelles, 
l'une pour la sortie écouteur (pour 
envoyer les programmes vers l’ordi- 
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nateur), et l’autre pour l'entrée micro 
(pour enregistrer les programmes). 
La prise de télécommande et le 
compteur ne sont pas indispensa- 
bles: on peut aisément suppléer à 
leur absence par une attention ac- 
crue. Il est dans ce cas vivement 
conseillé d'utiliser le ”’truc” exposé 
dans le numéro 1 de ”99 Magazine” 
à la page 65, consistant à faire précé- 
der vos programmes sur la cassette 
par une annonce sonore comportant 
un compte à rebours. Il est égale- 
ment sage de suivre” auditivement 
le transfert du programme dans le 
haut-parleur du téléviseur : cela per- 
met de détecter rapidement une 
éventuelle anomalie et peut permet- 
tre d'en déterminer la cause. 


On remarquera que tout programme 
est précédé d’un ‘’blanc” laissé par 
l'ordinateur lui-même au moment de 
l'enregistrement, durant environ qua- 
torze secondes. Ce blanc est suivi 
d’un sifflement d’une durée de qua- 
tre secondes. Si le magnétophone ne 
comporte pas de télécommande, 
c'est pendant ce sifflement qu'il faut 
appuyer sur la touche ENTER” de 
l'ordinateur. Cette précaution est 
bien entendu inutile lorsque l’on dis- 
pose de la télécommande car le défi- 
lement de la bande est commandé 
directement par l'ordinateur. 


Remarque pour ceux qui disposent 
de la télécommande et qui utilisent 
des annonces sonores : ils doivent 
lire l'annonce sonore avant d'écrire 
"OLD CS1” sur l’ordinateur. Ainsi, la 
télécommande est libre et on peut 
faire tourner le magnétophone. Ce 
n’est que lorsque l’on a entendu en- 
tièrement l'annonce (on se trouve 
alors sur le ”’blanc” de quatorze se- 
condes) que l’on arrête le magnéto- 
phone et que l’on commence la pro- 
cédure normale OLD CS1”. Si on 
fait cette commande avant l'annonce 
sonore, l'ordinateur va lire cette der- 
nière et y chercher des signaux cor- 
respondant à des signaux de pro- 
grammes ou de données. Comme il 
ne les trouvera pas, il affichera son 
message d'erreur. 


Quelque soit le modèle de magnéto- 
phone utilisé, il est tout à fait préféra- 
ble de l’affecter uniquement à l’usage 
de l'ordinateur. En ce qui concerne 
les potentiomètres, il faut régler le 
volume au maximum et la tonalité au 
plus aigu. Lorsque le système aura 
fait ses preuves, il vaudra mieux ne 


plus y toucher pour ne pas risquer 
de modifier les réglages effectués. De 
plus, on risque, à force de débran- 
cher. et rebrancher sans cesse, de dé- 
tériorer les fiches qui ne donneraient 
plus alors des contacts d’aussi bonne 
qualité qu’il le faidrait. 


Pour ceux qui ne sont pas encore 
équipés, ou qui souhaitent acquérir 
un nouveau magnétophone pour 
leur TI-99, signalons la sortie récente, 
chez Texas Instruments, d’un magné- 
tophone à cassettes spécialement 
conçu pour la sauvegarde des fichiers 
de l'ordinateur. La qualité des trans- 
missions à partir de ce matériel est 
en principe irréprochable et générera 
certainement moins souvent de mes- 
sage d'erreur qu'avec tout autre ma- 
tériel. 


Le cordon 


Les ‘initiés’ désignent le cordon 
sous le nom de Interface Cassettes”. 
Il en existe deux modèles sur le mar- 
ché. Le plus ancien est conçu pour 
relier deux magnétophones à l’ordi- 
nateur. Il peut se révéler très utile 
pour ceux qui utilisent ce support 
magnétique pour faire de la gestion 
de fichier: on lit un fichier de ma- 
nière séquentielle sur l’un des ma- 
gnétophones, on traite les informa- 
tions et on stocke le fichier mis à jour 
sur le second magnétophone. De ce 
point de vue, le câble à deux dériva- 
tions est indispensable. Il présente 
cependant un défaut : il ne comporte 
de télécommande que pour l'unité 
CS1. De la sorte, lors de telles opé- 
rations, le manipulateur est contraint 
de déclencher lui-même les avances 
et arrêts de la bande réceptrice. 


Pour ceux qui n’utilisent qu’un seul 
magnétophone, ne coupez pas le se- 
cond fil: il pourra vous servir si, 
comme nous l’avons vu plus haut, 
vous voulez faire de la gestion de fi- 
chiers. Prenez simplement la précau- 
tion d'isoler les deux fiches que vous 
n'utilisez pas de manière à éviter 
qu’elles ne provoquent des courts- 
circuits. Pour celles que vous bran- 
chez, il est conseillé de les consolider 
pour ne pas risquer de dessouder les 
fils lors d’une opération de débran- 
chement du magnétophone. 


Le nouveau câble désormais 
commercialisé est conçu, lui, pour un 
seul magnétophone. Il est plus fonc- 
tionnel que son prédécesseur et les 
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fiches en sont nettement plus solides 
car revêtues d’un moulage en caout- 
chouc. La dérivation CS2 n’existant 
plus, il nv a plus de fil qui traîne 
inutilement. 


La cassette 


Si l'ensemble du système ne 
comporte aucune faiblesse, des cas- 
settes très bon marché peuvent suf- 
fire. Elles sont même préférables car, 
vu leur faible coût, on n’hésitera pas 
à les découper, par exemple pour 
mettre un seul programme par face. 
Le supplément de bande sera pure- 
ment et simplement jeté, mais il faut 
prendre une précaution : ne couper 
qu’à la longueur du plus long des 
deux programmes. enregistrés. Une 
certaine gymnastique est nécessaire 
dans laquelle l'habitude donne une 
très grande habileté. 


D’autres précautions doivent être 
prises : ces cassettes très économi- 
ques ont une couche d’enduit ma- 
gnétique particulièrement mince qui 
peut se révéler à la longue insuffi- 
sante pour la conservation de pro- 
grammes informatiques. Il faut donc 
dupliquer toutes les sauvegardes, 
c'est-à-dire les faire en double, en 
contrôlant à chaque fois la validité de 
l'enregistrement. Cela risque évidem- 
ment d’alourdir considérablement les 
procédures de mise au point d’un 
programme, mais c'est quand même 
préférable que de perdre le fruit de 
longues heures de travail intense. 


Vous pouvez aussi décider de n’utili- 
ser que des cassettes de bonne qua- 
lité : les cassettes HI-FI LOW-NOISE 
sont les meilleures que vous pourrez 
trouver. Dans ce cas, s’il y a des inci- 
dents, ils ne peuvent évidemment 
pas provenir de la qualité de la 
bande mais, plus probablement, 
d’une erreur de manipulation. Si 
elles ont, précisément, l'avantage de 
leur qualité, elles ont en revanche 
l'inconvénient de leur prix élevé, ce 
qui fait que l’on hésitera certaine- 
ment à les découper et encore plus à 
en jeter des morceaux. De la sorte, si 
un programme se trouve en fin de 
bande, il faudra opérer un déroule- 
ment complet pour le trouver, ce qui 
constitue  incontestablement une 
perte de temps. On pourra pallier cet 
inconvénient en mettant en début de 
cassette les programmes les plus utili- 
sés. 


Quelques trucs 


Prenez la précaution de sauvegarder 
vos programmes en deux endroits 
différents. En particulier si vous utili- 
sez fréquemment l’un d’entre eux, 
faites deux sauvegardes en plus de la 
bande de travail : il se trouvera bien 
quelqu'un chez vous pour en perdre 
ou détruire une. Si, dans le même 


temps, vous ’écrasez” votre bande 
de travail. 


Evitez de programmer le week-end 
quand votre conjoint fait fonctionner 
des appareils électriques. Si les 


Le Mastermind 


Edouard Jouan 


Le programme que je vous présente 
ici s'inspire du célèbre ”’Mastermind” 
et provient du club TISOFT-HOME 
de Bruxelles. L'ordinateur choisit 
parmi cinq couleurs un arrangement 
de quatre d’entre elles. Le joueur 
doit deviner la nature de cet arrange- 
ment en faisant 9 propositions suc- 
cessives (au maximum). En réponse 
à chacune de ces propositions, le 
programme indique combien de cou- 
leurs sont bonnes mais mal disposées 
et combien sont bonnes et en bonne 
place. 


Il existe une méthode infaillible de 
résolution du problème qui aboutit 
en général à la bonne combinaison 
après cinq propositions. Mais ne 
comptez pas que je vous la donne 


dans ces lignes: cela supprimerait 
tout l'intérêt du jeu et ce serait bien 
dommage. À vous donc de la décou- 
vrir, ce qui suppose, bien entendu, 
que vous avez auparavant tapé le 
programme (ou que vous en dispo- 
siez sur l’une des merveilleuses cas- 
settes d'accompagnement de 99” !). 


Comme tout programme de jeu cor- 
rectement écrit, celui-ci débute par 
un énoncé des règles du jeu (lignes 
240 à 430). Remarquez la structure 
de la ligne 430 : le programme vous 
demande de faire ENTER pour conti- 
nuer et attend la valeur d’une varia- 
ble A$. Si on fait simplement ENTER 
comme demandé, cette variable sera 
vide car on n'aura pas indiqué de 


valeur. Cela n’a aucune importance, . 


plombs sautent, vous pouvez dire 
adieu à votre programme. Si vrai- 
ment vous ne pouvez vous en passer 
annoncez alors que vous emménerez 
ensuite votre famille au restaurant. 
Personne n'aura de choses urgentes 
à faire et vous serez tranquille pen- 
dant quelques heures (voilà qui est 
bien fait pour la réconciliation des fa- 
milles !). 


Signalons enfin l'existence d’un mo- 
dule enfichable très pratique: la 
Mini-Mémoire qui permet de stocker 
des programmes d’une taille maxi- 
male de quatre kilo-octets, instanta- 
nément et sans le secours d’aucun 
périphérique. Ce module renferme 
une pile censée durer deux ans qui 
assure la conservation même lorsque 
l'ordinateur est débranché ou lorsque 
l’on retire le module de son loge- 
ment. C’est très utile pour ceux qui 
sont fréquemment obligés d'inter- 
rompre leur travail et qui ne dispo- 
sent pas de beaucoup de temps ou 
d'espace pour s'organiser. En outre, 
ce module permet de s'initier à la 
programmation en assembleur, à 
condition toutefois de pouvoir se 
contenter de la très faible documen- 
tation qui l’accompagne. 


Dernière chose importante: ne 
confondez pas OLD et SAVE. Sur- 
tout, ne tapez pas OLD en pensant 
SAVE car tout serait détruit. C’est là 
que le mot SAVE prend toute la si- 
gnification qu’il a dans l'expression 
S.O.S. (Save Our Souls : sauvez nos 
âmes !). 


car l’objet de cette ligne est simple- 
ment de mettre le programme en at- 
tente au moyen de l'instruction 
INPUT et la variable A$ n’est utilisée 
nulle part ailleurs. 


Si vous disposez du module de Basic 
Etendu, vous pouvez faire tourner ce 
programme dans ce langage : il n’uti- 
lise en effet pas de caractère au-delà 
du caractère 143. Vous pouvez alors 
compacter les lignes 460 à 590 en 
une seule ligne : 


460 J=0::F=15::E=1 


Les lignes 600 à 1050 fabriquent les 
caractères servant à construire les 


graphiques. Remarquez la ligne 600 
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qui renvoie à la ligne 1060 si J=1. 
Or la ligne 460 affecte la valeur 0 à 
cette variable. Lors du lancement du 
programme, la valeur de J étant O, 
les lignes 610 à 1050 sont exécutées. 
La ligne 610 affecte la valeur 1 à la 
variable, J de sorte qu'à tout nou- 
veau passage par la ligne 600, le 
programme sautera directement à la 
ligne 1060 : il n’est en effet pas né- 
cessaire, lorsque l’on décide de re- 
jouer à ce jeu, de construire une 
deuxième fois les mêmes caractères. 


Le choix des couleurs à deviner 
commence à la ligne 650: 
A=INT(5xRND)*x8 La valeur de A 
est donc choisie entre 0, 8, 16 et 32. 
Il faut en effet se souvenir que les 
codes ASCII utilisés par le TI-99 sont 
groupés par séries de huit. Lorsque 
l'on affecte une couleur à un carac- 
tère, on l’affecte en réalité à tous les 
caractères du groupe dont il fait par- 
tie. S'agissant ici de déterminer qua- 
tre caractères de couleurs différentes, 
il faut que chacun d’eux soit compris 
dans un groupe différent des autres. 
La ligne 1090 du programme cons- 
truit le caractère qui servira, à la fin 
du jeu, à indiquer la bonne réponse 
en ce qui concerne la première cou- 
leur. Ce caractère est celui de nu- 
méro 96, 104, 112 ou 120, c’est-à- 
dire qu’il appartient à l’un des quatre 
groupes dans lesquels ces numéros 
de caractères sont compris. Les cou- 
leurs de ces quatre groupes ont été 
préalablement déterminées dans les 
lignes 760 à 790. 


Il y a plusieurs fois dans le pro- 
gramme l'instruction CALL KEY. Je 
ne vous ferai pas l’injure de vous en 
rappeler la signification : vous devez 
maintenant la connaître. Si, cepen- 
dant, vous avez encore quelques dif- 
ficultés à son sujet, vous pouvez vous 
reporter à l’article de Bernard Braun 
dans le numéro 1 de ”99 Magazine”. 


Si vous frappez ”S” avant d’avoir fait 
ENTER, vous annulez purement et 
simplement la proposition que vous 
avez commencé à faire. Si, en revan- 
che, vous frappez M”, le jeu se ter- 
mine avec indication de la solution. 


REM 
REM # 
) REM * 
REM 
REM 
CALL CLERR 
PRINT 
FOR TH=1i TO 17 
FRINT 
NEXT TH 
FOR DEL&Y=I1 TQ 200 


ET TISOFT HOME 
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“ JEU DES 4 COULEURS" 


Vous remarquerez à l'usage que, si 
vous laissez votre doigt appuyé trop 
longtemps sur l’initiale d’une couleur, 
cette dernière se positionne deux fois 
dans votre proposition, ce qui est gé- 
nant. Il vous appartient de compléter 
ce programme afin de vous protéger 
çontre ce genre d'erreur. Vous pou- 
vez par exemple inclure les lignes 
suivantes : 


1054 CALL KEY(0,ARRET,S) 
1058 IF S=—1 then 1054 
1059 S=0 


De la sorte, après le CALL KEY de 
la ligne 1050, le programme est in- 
terrompu tant que votre doigt n’est 
pas relevé et la couleur que vous 








avez indiquée ne peut être marquée 
deux fois (ce truc est donné par De- 
nise Amrouche dans son programme 
du Jeu de l’Alphabet dans le numéro 
1 de 99 Magazine”). 


Le programme d’origine était en an- 
glais ; les couleurs sont dénommées 
’red, white, blue, yellow, green”. 
Dans le but de vous laisser travailler 
un peu (!), j'ai laissé ces dénomina- 
tions telles qu’elles étaient. Si vous le 
voulez, vous pourrez les traduire, 
mais une difficulté se présente : 
white” se traduit par blanc” qui a 
la même initiale que ”’bleu”. Il faut 
alors soit désigner le bleu par, un 
autre. nom (cyan ou ciel...), soit rem- 
placer l’une de ces deux couleurs par 


210 
Ro | 


ste 


+ 250 


PES LS 


240 


260 
Rem le, 


FRINT 


260 
270 
280 
290 PRINT " 
300 FRINT 


GOTO 


NEXT DELAY 

CALL CLEAR 
"INSTRUCTIONS?(O/N) " 
CALL KEY(O,KEY, STAT) 

IF KEY=79 THEN 280 

IF KHEY=78 THEN 440 

240 


CALL CLEBR 


une autre dont l’initiale ne présentera 
plus de problème. Il ne faudra pas 
oublier de modifier en conséquence 
soit la ligne 1280, soit... Mais il n’y a 
pas de test ”’IF KEY=66” pour savoir 
si le ’B” a été frappé. En effet, si 
l’on n’a pas frappé l’une des autres 
touches demandées, on est censé 
avoir frappé le ”’B”. Vous ne pourrez 
donc modifier que la couleur blan- 
che. 


La manière dont sont analysées les 
propositions faites par le joueur me 
semblent assez évidentes à la lecture 
du programme. Je ne vais donc pas 
la répéter ici puisque, tout en l’en- 
trant dans votre machine, vous pour- 
rez la comprendre. Remarquez ce- 
pendant la ligne 2500 : elle remet à 
zéro toute une série de variables 
d’un seul coup. J’ai essayé : on peut 
en mettre autant que la ligne peut en 
contenir (en fonction de la dénomi- 
nation des variables que l’on utilise). 
Remarquez aussi la ligne 2550: la 
question ENCORE? (O/N)” est sui- 
vie de CHR$(30) qui est le curseur. 
Lorsque l’on demande par CALL 
KEY l'introduction d’une valeur, l’or- 
dinateur ne dispose en principe pas 
de curseur car le caractère frappé ne 
sera pas affiché. La présence de ce 
curseur clarifie cependant une ques- 
tion et il n’est pas toujours inutile de 
le faire apparaître. 


Ce programme est tout à fait perfec- 
tible, ne serait-ce que pour modifier 
le graphisme s’il n’était pas à votre 
goût. On constate par exemple la 
présence d'instructions CALL KEY à 
divers niveaux qui semblent bien 
pouvoir être remplacées par une 
seule disposée différemment. Il fau- 
drait alors revoir en profondeur la 
structure du programme. Ceci aurait 
cependant un inconvénient impor- 
tant: celui de ralentir l'exécution. Il 
vaut donc mieux le laisser tel qu’il 
est, même si, à la lecture, il semble 
un peu bizarre. Il n’y a donc plus 
maintenant qu’à passer de longs et 
délicieux moments pour découvrir la 
méthode systématique de résolution 
de ce jeu. Essayez quand même de 
ne pas attraper de migraine. 


INSTRUCTIONS" 


310 PRINT “"°M° DONNE LA SOLUTION MAIS 
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"ESSAYEZ DE RECONSTITUER LE G 
ROUFE S 4 COULEURS EN 9 ESSSIS OÙ MOI 
NS," 
ES0 FRINT 
260 FRINT 
370 PRINT "  X=BON ET EN BONNE FLACE, 
/=BON, MAIS ML FLACE" 

380 FRINT "X ET / VOUS INDIQUENT LE 
OMBRE DE COULEURS BIEN CHOISIES." 
ES FRINT 
ai PRINT "°S* 
OTRE CHOIX BVANT DE FAIRE 
415 FRINT 
420 PRINT 

INFUT "FAITES ENTER FOUR CONTINUER": 


VOUS PERMET DE MODIFIER V 
"ENTER”*." 


49 CALL CLEAR 
GO CALL SCREEN(14) 


PA 


) WEB=0 
540 WC=0 
70 WD=0 
Z=0 
no Y=0 
0 IF J=1 THEN 1060 
0 J=1 
> RANDOMIZE 
30 CALL CHAR(96,"FFFFFFFFFFFFFFFF") 
à CALL CHAR(104,"FFFFFFFFFFFFFFFF") 
0 A=INT (S#RND) #8 
s) CALL CHAR(112,"FFFFFFFFFFEFFFFF") 
70 CALL CHAR(120,"FFFFFFFFEFFFFFFF") 
à B=INT (S#RND) *8 
30 IF B=A THEN 680 
700 CALL CHAR(128,"FFFFFEFFFFFFFFFF") 
O CALL CHAR(136,"FFFFFFFFFFFFFFFF") 
720 CALL COLOR (9,4, 1) 
730 C=INT (S#RND) #8 
IF C=B THEN 730 
IF C=A THEN 730 
j CALL COLOR(10,6,1) 
70 CALL COLOR(11,10,1) 
) CALL COLOR(12,12,1) 
à CALL COLOR(13,16,1) 
DO D=INT (S#RND) #8 
à IF D=A THEN 890 
IF D=B THEN 800 


54 IF D=C THEN 800 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


845 
850 
860 
a7û 
385 
g9û 
900 
giû 
920 
PAT 
sai 
950 
S6û 
970 
980 
790 
1900 
1010 
1020 
103 
1040 
1050 
1960 
1070 
1580 
1990 
1100 
1110 
1120 
1150 
1149 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
230 
1240 
1250 
1269 
1270 
1280 
1290 
1300 
1510 
1320 
1350 
1340 
1350 
1360 
1370 
1380 


HCHAR (1, 10,52) 
HCHAR (1, 12,67) 
HCHAR (1, 13,79) 
HCHAR (1, 14,85) 
HCHAR (1,15, 76) 
HCHAR (1, 16,69) 
HCHAR (1, 17, 85) 
HCHAR (1, 18,82) 
HCHAR (1, 19,83) 
HCHAR (7, 2,82) 
HCHAR (9, 2,87) 
HCHAR (11,2, 66) 
CALL HCHAR(13,2,89) 
CALL HCHAR(15,2,71) 
FOR TH=7 TO 15 STEF 2 
CALL HCHAR(TH, 3,61) 

NEXT TH 

CALL HCHAR(7,4,11%) 

CALL HCHAR (9, 4, 128) 

CALL HCHAR(11,4,104) 

CALL HCHAR (13,4, 120) 

CALL HCHAR (15,4, 96) 

CALL HCHAR (4,15, 136, 4) 

CALL KEY(O,KEY, STY) 

IF KEY=77 THEN 1090 ELSE 1160 
CALL HCHAR (4, 15,96+A) 

CALL HCHAR(4, 16,96+8) 

CALL HCHAR (4, 17,96+C) 

CALL HCHAR(4,18,96+D) 

FOR DELAY=1 TO 200 

NEXT DELAY 

GOTO 2550 

FOR GH=6 TO 24 STEP 2 

CALL HCHAR (GH, 14, 136,6) 

NEXT GH 

CALL VCHAR (6, 14,136, 18) 

CALL VCHAR (6, 19,136, 18) 

CALL KEY(O,KEY, STY) 

IF KEY=77 THEN 1090 

CALL KEY(0,KEY, STY) 

IF KEY=83 THEN 1250 ELSE 1280 
CALL HCHAR(G, 15, CLEAR, 4) 

F=15 

E=i 

IF KEY=87 THEN 1290 ELSE 1340 
S(E)=32 

CALL HCHAR(G,F, 128) 

F=F+1 

E=E+1 

IF E=5 THEN 1620 

IF KEY=82 THEN 1350 ELSE 1410: 
S(E)=16 

CALL HCHAR(G,F, 112) 

F=F+1 

E=E+1 

1390 IF E=5 THEN 1620 

1400 REM FOUR LES 99/4 : DISFOSEZ 
A LIGNE 1500 

1410 IF KEY=66 THEN 1420 ELSE 1470 
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1420 
1439 
1440 
1450 
1460 
1470 
1485 
1495 
1550 
1510 
1520 
1530 
1545 
1550 
1565 
1570 
1585 
1590 
1600 
1410 
1820 
1830 
1649 
1650 
1665 
1870 
16480 
1690 
1700 
1719 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1890 
1819 
18209 
1830 
1840 
1850 
i84û 
i87û 
1880 
1990 
1900 
1910 
1920 
1930 
17940 
1950 
1960 
1970 
1980 
1990 
2900 


S{E)=8 

CALL HCHBRIG,F,104) 

F=F+1 

E=E+1 

IF E=5 THEN 1620 

IF ÉEY=71 THEN 1480 ELSE 15:30 
S(E)=0 

CALL HCHBR(G,F,96) 

F=F+1 

E=E+1 

IF E=5 THEN 1620 

REM N'EFFACEZ FAS CETTE LIGNE !!1 
CALL FEY(O,KEY, STAT) 

IF KEY=89 THEN 1560 ELSE 1210 
S{E)=24 

CALL HCHARIG,F, 1240) 
F=F+i 

E=E+i 

IF E=5 THEN 1620 
GOTO 1210 

IF 8=S{1) THEN 16:00 
Y=Y+1 

XAz=1 

IF H=S(2)THEN 166 
Y=Y+1 

XEH=1 

IF C=S(3S) THEN 1690 
Y=Y+1 

XC=1 

IF D=S(4)THEN 1720 
Y=Y+1 

XD=1 

IF XA=1 THEN 1890 
IF XB=1 THEN 1800 
IF A=S(2) THEN 1770 
Z=1+1 

WB=1 

GOTO 1895 

IF XC=1 THEN 1850 
IF A=S(S)THEN 1820 
Z=1+1 

WC=1 

GOTO 189û 

IF XD=1 THEN 1895 
IF &=S(4) THEN 1870 
Z=1+1 

WD=1 

IF XB=1 THEN 2060 
IF XA=1 THEN 1950 
IF H=S(1)THEN 1920 
2=7+1 

WA=1 

GOTO 20460 

IF XC=1 THEN 2010 
IF WC=i THEN 2910 
IF E=S(3S)THEN 1980 
Z=1+1 

WC=1 

GOTO 2040 
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2010 
2020 
2030 
2045 
2950 
2080 
2070 
200 
2090 
2100 
E110 
2170 
2150 
2140 
2150 
2160 
21470 
2180 
2190 
2200 
2219 
32960 


den de don 
2250 
2240 
ne 
2250 
73 2 
2260 
370) 
2270 
2780 
2:90 
2300 
Las Dre 

2310 
Z320 


iréres 
2330 


2340 
2350 
2360 
2570 
2380 
2390 
2400 
2410 
2420 
2450 
2440 
2450 
24640 
2470 
2480 
2490 
2500 
2519 


2520 


2530 
2540 
2550 
2560 
2570 
2580 
2390 


IF XD=1 THEN 206 
IF WD=1 THEN 2960 
IF B=S(4) THEN 2040 
Z=1+1 

WD=1 

IF XC=1 THEN 2740 
IF XA=1 THEN 2150 
IF WAzi THEN 21350 
IF C=S{1) THEN 2100 
Z=1+1 

Az 

GOTO 2:40 

IF XEB=1 THEN 2190 
IF WB=i THEN 2190 
IF C=S{2) THEN 160 
Z=1+1 

WE=1 

GOTO 2240 

IF XD=1 THEN 2240 
IF WD=1 THEN 2740 
IF C=S(4) THEN 2270 
1=1+1 

WD=1 

IF XD=i THEN 24%û 
IF XA=1 THEN 2310 
IF Wôâ=1i THEN 2310 
IF D=S{1) THEN 2280 
Z=1+1 

WA=1 

GOTO 420 

IF XB=1 THEN 2375 
IF Wz=1 THEN 2370 
IF D=S{2) THEN 254 
Z=1+1 

WE=1 

GOTO z420 

IF XC=1 THEN 2430 
IF WC=1 THEN 2420 
IF D=6(5) THEN 2400 ELSE 
Z=1+1 

WC=1 

IF Y=0 THEN 2445 
CALL HCHBR(G, 10,98, Y) 
IF 2=0 THEN 2460 
CALL HCHAR(G, 10+Y,47,2) 
G=G+2 

IF Y=4 THEN 1090 
Y=0 

Zz=û 
WA=WR=WC=WD=<Aa=XR=XC=XD=0 
E=1 

F=1s 

IF G=25 THEN 1990 
GOTO 590 
PRINT "ENCORE? 


(O/N) "5 CHARS (350) 
CALL KEY(O,KEY, STAT) 

IF STAT=O THEN 2560 

IF KEY=79 THEN 440 

END 
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AUD 2 334 


L'ORDINATEUR 
INDIVIDUEL 


AU SOMMAIRE 


e Panorama des ordinateurs valant 
jusqu'à 60 000 F (200 matériels) 


e Tableau récapitulatif de tous les OI. 
dans plusieurs configurations 


e Panorama des imprimantes pour 


ordinateur individuel (plus de 100 matériels) 
e Réactualisation de bancs d'essai 


de 50 matériels parus dans L'OI. 

e Revue des bancs d'essai de 52 logiciels 
parus dans L'O.. depuis le n° 34 

e Annuaire des fournisseurs et des clubs : 
plus de 1500 adresses 

e Le point sur les nouveautés parues 
depuis l'été 82 


e Dictionnaire de l'informatique individuelle 
e Et une série d'articles pour vous “guider” 
sur le chemin de votre informatisation 
individuelle 


à partir 
du 12 septembre 1983 
35 FF 
chez votre marchand 
de journaux 


Pour recevoir, chez vous le 
Guide 83-84 dès sa parution, il vous 
suffit d'envoyer vos nom et adresse 

ainsi qu'un chèque de 35FF à 
L'ORDINATEUR INDIVIDUEL (GUIDE 83-84) 
39, rue de la Grange-aux-Bel 


es 
75484 Paris Cedex 10 
n° 50 bis 


“rs 35F } 





Une réduction de 5FF est accordée 





> aux abonnés 
sur envoi de la dernière étiquette c 


‘expédition 


Othello est le type même du jeu 
conçu pour être joué sur ordinateur. 
C'est pourquoi je vous présente ici 
ce programme qui nous vient de nos 
amis belges du club TI-SOFT 
HOME. Il présente l’avantage d’être 
écrit en Basic simple, ce qui le rend 
accessible même à ceux qui ne dlis- 
posent que de la version de base du 
TI-99 : console et magnétophone à 
cassettes. 


Ce programme n'est pas excessive- 
ment long : il ne comporte que 455 
lignes. Mais il est construit de façon 
suffisamment astucieuse pour être 
très performant. 


Avant tout, je vous rappelle les règles 
du jeu d'Othello. On dispose d'un 
damier de huit cases sur huit. Les 
pions des joueurs sont d’une couleur 
différente sur chaque face. Ici, ils 
sont rouges d’un côté et jaunes de 
l’autre. Les deux joueurs posent leurs 
pions toujours sur le même côté : 
l'un pose des pions jaunes, l’autre 
des pions rouges. Ils commencent 
par occuper les quatre cases du mi- 
lieu du damier (en huit sur huit, c’est 
d’ailleurs plutôt un échiquier !). Ils 
posent ensuite leurs pions où ils le 
souhaitent, à la seule condition de 
prendre à chaque fois des pions à 
l'adversaire. 


Les pions de l'adversaire sont pris 
lorsqu'ils sont, du fait de la pose 
d'un nouveau pion, disposés entre 
deux pions du joueur, que ce soit en 
ligne horizontale, verticale ou diago- 
nale, qu'il s'agisse d’un seul pion ou 
de plusieurs sur un même aligne- 
ment. La prise est constatée par le 
retournement. Ainsi, si le joueur 
rouge prend un pion jaune, il re- 
tourne ce dernier qui devient alors 
un pion rouge. 


Lorsqu’aucune prise n’est possible, le 
joueur dont c’est le tour est alors au- 
torisé à jouer n'importe où sur l’échi- 
quier (NDLR: Ja règle précise 
d’Othello stipule que, dans ce cas, le 
joueur doit passer.). Le jeu se ter- 
mine lorsque toutes les cases sont 
occupées ; le gagnant est celui qui a 
le plus de pions dans sa couleur. 


Le programme autorise le jeu à deux 
joueurs. Il se contente alors d’enre- 
gistrer les coups, tout en vérifiant leur 
validité, et d'opérer les retourne- 
ments occasionnés par chaque prise. 
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Othello 


Didier Bicking 


ik A UNE DROLE 
DE STATEGE ! 





Il autorise aussi le jeu à un seul 
joueur contre le TI-99. Il possède 
donc une stratégie de jeu qui lui est 
propre et dont, à l'usage, vous 
comprendrez très vite la philosophie. 


Une particularité doit être signalée en 
ce qui concerne l'exposé des règles 
du jeu par l'ordinateur: celui-ci est 
obtenu par listage des lignes 1000 à 
1420 du programme. L'auteur a 
trouvé ce moyen pour économiser le 
temps d'apparition du texte lors du 
lancement du programme. Une fois 
que vous connaitrez suffisamment 
ces règles, vous pourrez en consé- 
quence supprimer simplement ces 
lignes du programme. Voire même, 
vous pouvez tout bonnement vous 
dispenser de les taper, vous réservant 
la possibilité de pouvoir les lire dans 
ces pages (à condition de conserver 
précieusement cette excellente 
revue...) 


Je ne vais pas, cette fois-ci, vous 
commenter le programme, mais plu- 
tôt vous exposer la stratégie à utiliser 
pour être à peu près sûr de gagner. 


1 - Le principe même du jeu consiste 
à éviter que les pions que l’on pose 
puissent se trouver entre deux pions 
de l’adversaire. Pour cette raison, il 
est essentiel de s'assurer la maîtrise 
des côtés et aussitôt que possible de 
prendre les coins. 


2 - Il faut ensuite appuyer” son jeu 
sur ces pions dont la prise est, sinon 
impossible(ce qui est le cas des qua- 
tre coins), du moins très difficile à 
court terme. 


3 - Lorsqu'un pion de l'adversaire se 
trouve au milieu d’une zone que l’on 
occupe en presque totalité, il faut 
tout faire pour le prendre car il est 
trop menaçant : l’adversaire peut en 
effet l’utiliser pour appuyer des coups 
dont l’objet est de briser votre domi- 
nation dans la zone concernée. 


4 - Les pions se trouvant dans les 
coins sont impossibles à reprendre, 
de même que ceux qui se trouvent 
sur les côtés et sont directement ap- 
puvés sur un coin. Il faut en consé- 
quence, aussitôt que l’on a pris un 
coin, appuyer son jeu sur les deux 
côtés adjacents en développant une 
occupation du ‘terrain” autour du 
coin de départ. 


Il m'est arrivé de faire des parties 
contre le TI-99 et d'arriver à ce qu’il 
ne lui reste plus de pion dans sa cou- 
leur. Le jeu s’arrête alors par ma vic- 
toire. Je ne me considère pas, loin 
de là, comme d’une intelligence su- 
périeure. Il doit donc être possible à 
tout le monde d’en faire autant. Es- 
sayez! Je vous souhaite de bonnes et 
longues heures avec ce jeu passion- 
nant. 
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Othello - TI Basic 


LOC REM HRERU EEE  O EEE R UE 
1910 REM + OTHELLO # 
1020 BEM «  COFYRIGHT 99 MAGAZINE # 
1OSG REM + ET J. CRAWFORD # 
1040 REM EE EE M EE RUE 
1950 REM 
1080 REM 
1970 REM ECRIT FOUR L'ORDINATEUR 
1080 REM TI-99/4 OÙ TI-99/44 
1095 REM ce programme permet à 
urs de jouer 
1100 REM ensemble où à un seul de jouer 
contre 
1119 REM l'ordinateur. 
de difficulté. 
1120 REM Il faut avoir. joué au moins ?5 
fois avant de pratiquer le niveau 3 
1130 REM du moins pour les enfants de m0 
ins de 135 ans. 
1140 REM Le TI-99 met environ 
pour jouer. 
150 REM fu niveau 3, de nombreux joueur 
s mettent plus longtenps! 
1160 REM Le niveau 1 est un niveau de dé 
monstration. 
1170 REM 
1189 REM Les mouvements sont entrés par 
indication de la colonne puis de la lign 
8. 
1190 REM Toutes les autres opérations 50 
nt réalisées automatiquement. 
1200 REM 
1310 REM 
1220 REM 
1730 REM 
arrés du 
1240 KEM 


deux joue 


7 


Il y à 3 niveaux 


30 seconde 


Fègles : 

1) On occupe en premier les 4 c 

centre. 

2) près cela, chaque joueur jo 

ue comme il l'entend 

1250 REM à condition toutefois que, à € 

haque mouvement 

1260 REM il capture au moins un carré de 
l'adversaire, 
1270 REM 3) Un 

s lorsqu'il est 
1280 REM compris entre deux carrés appar 
tenant au joueur, 

1290 REM que ce soit en ligne verticale, 
horizontale où diagonale. 

1300 REM 

1310 REM 4) Un mouvement "illégal" est 
signalé après 30 secondes 

1320 REM par un signal sonore. 

1330 REM 5) S'il n'y a plus de possibili 
té de jouer en prise, 

1340 REM il est alors permis de jouer n° 
importe où. 
1359 REM 6) 


(ou des) carréis) est pri 


Le gagnant est le joueur qui 


TI-99 JOUE LE ?me : 


a le plus grand nombre 

1360 REM de carrés dans sa couleur à la 
fin du jeu. 

1370 REM 

1380 REM Ci-dessous une séquence de jeu 
tout à fait valide 

1390 REM lorsque l'on joue à deux 

1409 REM et qui illustre une partie corr 
ecte. 

1410 REM MOUVEMENTS : 
4,6-5,4-6,5-5,6-6, 6-5, 
1420 REM 2-5,6-7,7-2,1-5,6-8,8-1,4-3,ETC 


4-4,4-5,5-5,5-4,46- 


1430 CALL SCREEN(14) 

1440 DIM EDGE (8) ,PLAY(2,10),EX(20) ,EY(20 
),DIR(S),4(9,9) 

1450 CALL CLESR 

1480 INFUT "INSTRUCTIONS 
1470 IF I£ril THEN 1510 
1480 CALL CLEA 

1490 FRINT "FOUR VOIR LES INSTRUCTIONS, 
LISTEZ LES LIGNES 1900 & 1426 DU FKOG 
RAMME. " 

1500 STOF 

1510 DATA 352,52,84,73,45,57,57,232 

1520 RESTORE 

1530 COMFLAY=0O 

1540 CALL CLEAK 

1550 FOR I1=1i TO 8 

1560 READ PFLAY(1,1) 

1570 FLAY(2,I)=FLAY(I,1) 

1580 NEXT I 
1590 FRINT 
OÙ DEUX JOUEURS 
1699 INFUT COMF 
1619 FKRINT 

1620 IF COMP=2 THEN 1829 
1630 PRINT "FACILE “He: 
MOYEN ue 

A 

1649 INFUT 
1650 PRINT 
1660 PRINT "TI-99 JOUE LE ler : 1 


mu 
pa 


(FAITES 19 "21 


"UN JOUEUR SEUL 


EL 
Fa 


DIFFICILE : 


"VOTRE CHOIX : “:HARD 


1670 "VOTRE CHOIX : ":COMFLAY 
1689 
1890 
1700 
1710 
1720 
1750 
1740 
1750 
1769 
1770 
1780 
1790 
1800 
1810 


INPUT 
PRINT 
IF COMPLAY=1 THEN 1760 

PRINT "NOM DU 1er JOUEUR : " 
INPUT Z1$ 

FOR I=1 TO 10 

CALL GCHAR(23,14+4,PLAY(1,1)) 
NEXT I 

60 TO 1920 

PRINT "NOM DU 2eme JOUEUR" 
INPUT Z1$ 

FOR I=1 TO 10 

CALL GCHAR(23, I+4,PLAY(2,1)) 
NEXT I 

GO TO 1920 
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1820 PRINT "NOM DU ler JOUEUR" D410 REM ==2== 
1830 INPUT Z1# 2420 REM DEBUT DU JEU 
1840 FOR I=1 TO 19 2430 FOR I=1 TO 10 
1950 CALL GCHAR (23, 1+4, PLAY (1, 19) 2440 CALL HCHAR(23, I+1,FLAY (FL, 1)) 
1860 NEXT I 2450 NEXT I 
1870 FRINT "NOM DU 2eme JOUEUR" 2460 CALL VCHAR(23,23,120) 
1880 INPUT Z1$ 2470 CALL VECHAR (23,28, 120) 
1890 FOR I=i TO 10 2480 IF COMPLAY=FL THEN 2580 
1900 CALL GCHAR(23,1+4,PLAY (2, I)) 2490 CALL KEY(O,RE, ST) 
1910 NEXT I 2500 IF ST{>1 THEN 2490 
1920 FOR I=1 TO 3 2510 X=RE-48 
1930 DIR(I)=1-2 2520 CALL VCHAR(23,23,RE) 
1940 NEXT I [2530 CALL_KEY (0, RE, ST) 
1950 FOR I=0 TO 9 2540 IF ST{>1 THEN 2530 
1960 FOR J=0 TO 9 2550 Y2RE-48 
1970 A(I,J)=1 2560 CALL VCHAR(23,28,RE) 
1980 IF IxJ#iJ-9)#(1-9)<50 THEN 2000 2=70 60 TO 7610 rs 
1990 A(I,J)=A(I,J)+1 2580 GOSUB 4190 
2000 NEXT J 2590 CALL VCHAR(23,23,48+X) 
2010 NEXT I 2600 CALL VCHAR(23, 28, 48+Y) 
2020 CALL CLEBR 2619 IF X:8 THEN 2760 
2030 PRINT " JOUE : 2620 IF X{1 THEN 2760 
2040 E$="FFFFFFFFFFFFFFFF" 2620 IE Y:8 THEN 7760 
2050 CALL CHAR(120,E#) 5649 IF V£1 THEN 2760 
206Q GALL COLOR (12, 2,8) 2650 IF A(X,Y)>1 THEN 2760 
sn dep ui 2660 IF TURN£=4 THEN 2710 
. LV 2670 GOSUB 3740 
se ut 2680 IF EXTRA0 THEN 2780 
PA EN ; 2690 GOSUB 3510 
2130 PAL MERE EE 2700 IF SW=1 THEN 2760 ELSE 2780 
née 2710 IF X>5 THEN 2760 
2150 NE) 2720 IF X{4 THEN 2760 
2150 B$="FF01010101010101" 2740 IF Y£4 THEN 2760 
2160 C$="80808080808080FF" 5750 GOTO 2780 
. SR 2760 CALL SOUND (500,200, 3) 
2 see 2770 GOTO 2460 
2190 CALL CHBR(97,B$) 1760 AUX, VY=PLET 
AT ne PASSER? 2790 FOR I=X-1 TO X+1 
2210 CALL CHAR(99,D#) HAN EEE Tate 
2220 CALL CHAR(104,4#) er PE . apres 
ae CN 2810 IF A(I,J)£r1 THEN 2830 
225 ANS) 2820 A(I,J)=0 
2240 CALL CHAR (106, C#) Sea MENT 
2250 CALL CHAR(107,D#) 2840 NEXT I 
2260 CALL CHAR(112,48) 2850 TURN=TURN+1 
2270 CALL CHAR(113,B$) 2840 TYPE=? 
2290 CALL CHAR(115,D$) à an 
£ : 2880 TYFE=3 
2300 CALL COLOR (7, 2,8) “nn MAO 
2320 CALL COLOR(11,2,11) 2910 GOSUB 4060 
2920 IF TURN=65 THEN 3000 
_ _. se ee 2930 IF FL=t THEN 2960 
dns 2940 FL=1 
Ps sr ddl 2950 GOTO 2970 
su 2960 PL=2 
pl 2970 GOTO 2430 
Fes, _—e, n 
2400 TURN=1 beta | 
2990 REM FIN DU JEU ET CALCUL DES TOTAUX 
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TOTI=0 3570 S4=107 
3010 TOT?=0 3590 GO TO 3630 
3020 FOR I=i TO 8 3590 S1=112 
3030 FOR J=1i TO 8 3600 S2=113 
3040 IF A(I,d)=3 THEN 3070 3610 S3=114 
3050 TOT2=TOT2+1 3620 S4=115 
3060 GO TO 2080 3630 X1=7+24%X 
3070 TOTI=TOTI+1 3640 X2=X1+1 
3080 NEXT J 3650 Y1=35+2+#Y 
3090 NEXT I 3660 Y2=Y1+1 
HIO0 IF TOT2ESTOTI THEN 3150 3670 CALL HCHAR(YI,X1,S1) 
3110 PRINT "EGALITE 32 TO 32" 3680 CALL HCHAR(Y1,X2,52) 
3120 GO TO 3230 3690 CALL HCHAR(Y2,X1,S3 
3130 PRINT 3700 CALL HCHAR(Y?, X2,54) 
3140 PRINT "AU SCORE DE"3;TOTI3" A": TOT2: | 3710 RETURN 
“yu 3720 REM 
3150 ERINT " GAGNE" 3730 REM CARRES GAGNES 
3160 IF TOTI?TOTZ THEN 3190 3740 EXTRA=1 
5170 FWIN=? 5730 FOR I=1 TO 
3180 GO TO 3200 3760 FOR J=1i TO 
3190 FWIN=i 3770 U=X+DIR(I) 
200 FOR I=1 TO 10 3780 V=Y+DIR(J) 
Q CALL HCHAR(TS, I+i,PLAY{FWIN,1)) ©  |3790 IF U=X THEN 3800 ELSE 3810 
2G NEXT I 3800 IF V=Y THEN 4000 
220 PRINT "POUR REJQUER : 1 32810 IF FL=1 THEN 3830 
 ARRETER : 2" 3820 IF A(U,V)=3 THEN 3840 ELSE 4000 
240 INPUT GAME 3830 IF A(U,V)=4 THEN 3840 ELSE 4000 
) CALL CLEAR 3840 U=U+DIR(I) 
3260 IF GAME=1 THEN 1520 3850 V=V+DIR(J) 
à STOF 3860 IF A(U,V)£=1 THEN 4000 
Q REM FIN DU JEU 3870 IF A(U,V)=7 THEN 4000 
0 REM 3880 IF FL=1 THEN 3900 
- 3200 REM LE JEU EST-IL LEGAL? 3890 IF A(U,V)=4 THEN 3910 ELSE 
3310 SW=0 3900 IF A(U,V)=3 THEN 3910 ELSE 
3320 ZZX=} 3910 U=X+DIR(I) 
3330 ZZY=Y 3920 V=Y+DIR(J) 
3340 FOR X=1 TO 8 3930 IF A(U,V)=FL+? THEN 4000 
3350 FOR Y=1 TO 8 3940 EX(EXTRA)=U 
560 IF AfX,Y)250 THEN 3400 3950 EY(EXTEA)=V 
3370 GOSUE 3740 3960 EXTRA<EXTRA+1 
2580 IF EXTRÉ=O THEN 54 4970 U=U+DIR(I) 
3390 SW=1 3980 V=V+DIR(J) 
3400 NEXT Y 3990 GO: TO 3930 
3410 NEXT X 4006 NEXT J 
S420 X=22X 4010 NEXT I 
3430 Y=22Y 4020 EXTRASEXTRA-1 
3440 RETURN 4030 RETURN 
5459 REM 404û REM 
3460 REM ROUTINE DES COULEURS 4050 REM ADDITION DES CARRES DE COULEUR 
3470 IF TYFE£:1 THEN 3530 & 
3480 Si=96 4060 XX=X 
SATA MAÉ 4070 YY=Y 
A TO 3080 FOR K=1 TO EXTRA 
3510 54=97 4090 X=EX(K) 
3520 GO TO 3630 _— 4100 Y=EY(K) 
IF TYFE<>?2 THEN 3590 H1t0: COBUE 1870 


ne. 4120 AUX, Y)=PL+2 
is 4130 NEXT K 
) S3=i06 4140 X=XX 


+ 
Là 
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4150 Y=YY 4740 EDGE(I)=A{X, 1) 
4160 RETURN 4750 NEXT I 
4170 REM 4760 FOR 1=1 TO EXTRA 
4180 REM STRATEGIE DU TI-99 4770 IF EX{(I)2%X THEN 
4190 IF TURN:4 THEN 4280 4780 EDGE (EY(I))=FL+? 
FOR X=4 TO 5 4790 NEXT 1 
4210 FOR Y=4 TO 5 4800 Z=Y 
4220 IF A(X,Y)>1 THEN 4250 4810 GO TO 489û 
4230 ZX=X 4820 EXTRA=EXTRA+S 
4240 ZY=Y 4830 GO TO 5:90 
4250 NEXT Ÿ 4840 IF HARD=Z THEN 4870 
4260 NEXT X 4850 EXTRA=EXTRA+14 
4270 GO TO 5530 4860 GO TO 5:90 
4280 EXTRAF=-100 4870 EXTRO=EXTRA+É 
4290 FOR X=1 TO 8 4880 GO TO 5390 
A3O0 FOR Y=i TO 8 1890 CORN=O 
4310 IF A(X,Y)<2>0 THEN 5430 4900 FOR I=1 TO EXTRA 
4520 GOSUB 3740 . 4910 IF T#(EX(I)-2)#(EX(1)-7)+(EY(1)-2)# 
330 IF EXTRA=Q THEN 5456 (EY{I1)-7)=0 THEN 4930 
4340 IF TURN£S7 THEN 4560 4920 GO TO 4980 
4350 HARD=1 4930 U={7#EX(1)-9)/5 
456 IF HBRD=1 THEN 5390 4940 V=(7#EY(1)-9)/5 
4370 IF X=1 THEN 4700 4950 IF A(U,V)£=1 THEN 4970 
4380 IF X=8 THEN 4700 4980 G0 TO 4590 
4360 IF Y=1 THEN 4586 4970 CORN=1 
4400 IF Y=9 THEN 4580 4980 NEXT I 
4410 HARD=2 THEN 5390 4990 TYFE=0 
4420 X=2 THEN 4500 5000 IF EDGE{1)=FL+? THEN 5050 
4420 X=7 THEN 4500 5010 LT=EDGE (1) 
4447 IF Y=2 THEN 5590 5020 IF LT£:0 THEN 5060 
4450 IF Y=7 THEN 5390 5020 LT=i 
44840 XEX+Y#Y+26€ 59% (X+Y) THEN 4480 5040 GO TO 5060 
4470 EXTRA=EXTRA+1. 1 5050 LT=? 
4480 EXTRA=EXTRA+4 5060 FOR I1=2 TO Z-i 
4490 60 TO 5390 5070 IF EDGE(I)=FL+Z THEN 5120 
4500 IF Y=2 THEN 4530 5080 IF EDGE(L)£=1 THEN 5110 
4510 IF Y=7 THEN 4550 5090 LT=EDGE (1) 
4520 60 TO 5390 5100 GO TO 5120 
4530 U=(7#X-9) /S 5110 LT=1 
4540 V=(74Y-9)/5 Sj90 MNEXT I 
4550 IF A(U,V):1 THEN 5390 5120 IF LT=7 THEN 5290 
4560 EXTRA=EXTRA-1E 5140 IF EDGE(8)=FL+? THEN 5190 
4570 60 TO 5390 5150 HT=<EDGE (8) 
4590 IF HBRD=T THEN 4690 5160 IF HT£+0 THEN 5200 
596 FOR I=i TO 8 5170 HT=1 
4600 EDGE{(I)=A{I,Y) 5180 GO TO 5200 
4610 NEXT I 5190 HT=7 
4620 FOR 1=1 TO EXTRA 5200 FOR I=7 TO Z+1 STEP -1 
Re LP EPRDAUNT FPE EN 5210 1F EDGE(I)=PL4+2 THEN 5260 
FRD EDGE EAUTIESESE 5220 IF EDGE(I)<=1 THEN 5250 
ps dr 5230 HT=EDGE (1) 
} = EenAr Enr 
4670 GO TO 4890 . nt 
4680 EXTRA=EXTRA+S S260 NEXT I 
4670 GD TO 5370 5270 IF HT=2 THEN 5290 


HS HE ei. TUEN 5280 IF HT£3LT THEN 5350 


ps 


4710 IF Y=8 THEN 4840 
4720 IF HARD=2 THEN 4829 
4730 FOR I=1 TO 8 


9290 TYPE=I 
5300 IF CORN=O THEN 53350 
5310 EXTRA=EXTRA-8 
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Accélérez vos program- 
mes en Basic Etendu 


Si certains programmes que vous 


|avez écrits en Basic Etendu n'’utilisent 


pas de sprites, mettez en tête la ligne 
Suivante : 


10 CALL LOAD(-31878,0) 


Astéroïides 
Edouard Jouan 


Ce programme que nous devons à 
nos amis du club TISOFT-HOME de 
Bruxelles est écrit en Basic. Il néces- 
site donc ce module pour pouvoir 
fonctionner. Il peut en outre utiliser 
le Speech Synthetizer. Si vous possé- 
dez cette unité, le déroulement du 
jeu en sera beaucoup plus spectacu- 
laire. 


Le jeu 


Le principe du jeu en lui-même est 
simple : un vaisseau spatial se dé- 
place au milieu d’un nuage d’astéroï- 
des, à une vitesse de plus en plus 
grande. Il faut bien entendu tenir le 
plus longtemps possible en évitant 
toute collision avec l’un de ces 
objets. À ce sujet, avez-vous en- 
tendu, un jour à la radio, un docte 
savant déclarer: Non, cela n'était 
pas un O.V.N.I! C'était seulement 
un objet volant que l’on n’a pas pu 
identifier?” ? 


Les asteroïdes sont symbolisés par 
les sprites 2 à 28; leur forme est celle 
du caractère 97 (ligne 370). Le vais- 
seau spatial, quant à lui, est repré- 
senté par le sprite 1 sous la forme du 
caractère 96 (ligne 390). La ligne 
410 détermine la vitesse à laquelle se 
déplacent les obstacles, les lignes 480 
et 500 font déplacer le vaisseau vers 
la gauche ou vers la droite. 


440 NEXT X 
IF 

8û FOR. Pen 

S470 FOR Y=l 

IF AiX, 


" THEN 5400 ELSE S45û 


RETURN 


L'adresse 31878 est en effet celle où 
se fait le quidage de tous les sprites. 


et accélère d'autant les autres. 


Si vous utilisez par exemple cinq 


_sprites, alors remplacez le zéro par 


un cinq. Vous pouvez donc dès le 


Commandes spéciales 


Bref, la lecture du programme sem- 
ble assez évidente. Je vous signale 
cependant particulièrement les lignes 
concernant le Speech Synthetizer : 


- Remarquez, notamment à la ligne 
130, la présence du signe ” + 
entre les mots. Cela donne à l’ordi- 
nateur un ton plus coulé” en liant 
les mots les uns aux autres. Si l’on 
met simplement un blanc, le ton est 
trop haché et cela a vraiment l'air de 
venir d’un ordinateur... 

- La ligne 710 consiste à faire dire 
par le TI un message d’alerte, puis à 
vous encourager à rejouer. Les 
dièses autour de ”TRY AGAIN” ser- 
vent à bien préciser qu'il s’agit là 
d’une expression faisant partie en 
tant que telle du dictionnaire du 
Speech Synthetizer. L'expression est 
alors prononcée sur un ton d’encou- 
ragement, comme s’il s’agissait d’un 
seul mot. Sans cette indication, le TI- 
99 dirait simplement les deux mots 
TRY” puis ’AGAIN”, ce qui est to- 
talement différent. Il en va de même 
pour toutes les autres expressions du 
dictionnaire comme par exemple 
l'expression TEXAS INTRUMENTS” 
qui doit être écrite TEXAS INSTRU- 
MENTS” : sans cela, l'ordinateur ne 
fait qu’épeler ces deux mots qu'il ne 
connaît pas sous une autre forme. 


 } 
1 + 


TG 8 


T0 8 


LA 


1 THEN 5510 


départ du programme décider du 


one de rs à gérer. Moins il y 
Si votre programme n’en utilise pas, en aura, 
cette Frs supprime cette procédure me 


pide sera le déroule- 


ae 
cette ligne un pete supérieur à 
28, nombre de sprites rnanimal du 
Basic Fendi 


Remarquez aussi la ligne 530 : CALL 
COINC(ALL,A). Son objet est de 
tester la coïncidence entre deux quel- 
conques sprites. Tant qu’il n’y a pas 
de coïncidence, la valeur de À est 
nulle, elle devient égale à -1 dans le 
cas contraire. Tous les asteroïdes se 
déplaçant dans le même sens (de 
haut en bas), seul le vaisseau peut 
les rencontrer, ce qui envoie le pro- 
gramme vers la procédure de colli- 
sion (ligne 540). 


Il faut noter que l'instruction CALL 
COINC reste valable même si les 
sprites ne sont plus présents à 
l'écran : entre le moment où ils dis- 
paraissent d’un côté et réapparaissent 
de l’autre, il y a toujours un petit 
délai. Si une collision se produit pen- 
dant ce délai, vous ne la voyez pas 
mais elle vous est quand- même si- 
gnalée. 


Augmenter la difficulté 


On peut aisément augmenter la diffi- 
culté de ce jeu en grossissant les 
formes des objets. Il faut alors inclure 


au début du programme une instruc- 
tion CALL MAGNIFY(X) : 


- X = 1 : aucun changement; 


- X = 2: la dimension de tous les 
sprites est doublée ; 


- X = 3: les sprites sont alors dessi- 
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nés dans une grille de 16 sur 16 (au 
lieu de 8 sur 8). Il convient de redéfi- 
nir leur forme dans les lignes 330 et 

plie par quatre. 


Astéroïdes - Basic Etendu 


REM COPYRIGHT 99 MAGAZINE 
ET TISOFT-HOME. 


1GG CALL CLERR 
110 INPUT "Le SFEECH SYNTHESIZER est-il 
branche (O/N) P'iISSS 
120 IF SSé="N" THEN 250 
130 CêLL SAY'THISE4IG+4THEL+FROGREMEOE 
140 DISFLAY AT(12,12):"ASTEROID" 
50 FOR O=i TO 5 
FOR 1=550 TO S5S 
CALL SOUND(-100, 17,1) 
NEXT I 
FOR I1=554 TO 549 
C8LL SOUND (160, EL, 1) 
NEXT I 
NEXT 0 
CALL SAY('YOLU+HAVE+HIUST4TO4+FRESS+RTE 
IT+OR+LEFT+ÉENVETO+MOUE+RIGNT+OR4LEFT 
240 CALL S8Y ("GOOD+GAMES") 
250 REM ASTERÇCIDS 
280 CALL CLEBK 
270 RANDOMIZE 
280 CALL SCREEN (A) 
290 VIT=I 
FOR I=2 TO 8 
CALL COLOR(I,16,5) 
NEXT I 
0 CALL CHARGES, MICICOISRAFEFECSSE") 
CALL CHAR (97, "O2973F7F7F7F7AS8") 
FOR I=28 TO 2 STEF -1 
565 CALL SOUND(-F000, TH1004+116, 105 
570 CALL SPRITE(HI,97,134RND+3, 1, 149,126 
#RND+1,0) 
5680 NEXT I 
390 CELL SPRITE(KI,96,5,180,125) 
AGO FOR I=? TO 28 
410 C8LL MOTION(HI, VIT, 0) 
470 NEXT I 
AG FOR I=Z TO 38 
449 CALL KEY(O,KEY, STATUS) 
459 IF KEY=8: THEN 480 
485 IF KEY=68 THEN 500 
470 GOTO 510 
480 C8LL MOTION(H1I,0,-10) 
495 GOTG 510 
500 CALL MOTION(#1,0,10) 
510 CALL MOTION(AI, VIT, 0) 


18 
170 
180 
150 
PURE 
210 
220 


250 


AGO 


319 


330 
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- X = 4: Les sprites sont dessinés en 
16 sur 16 et leur taille est doublée, 
ce qui revient à dire qu’on les muti- 


La dimension des astéroïdes et celle 
du vaisseau étant augmentées, il 
reste moins d'espace pour circuler et 
le jeu est plus difficile. 


5,20, VIT#20+110,15 


130 CALL COINC (ALL, À) 
IF À=-1i THEN 630 
390 NEXT I 
20 VIT=VIT+I 
7 IF VIT:=50 THEN 760 
390 POINTS=POINTS+INT(VIT/2) 
390 DISPLAY AT(2,2): "POINTS "SFOINTS 
00 DISPLAY ATR6S,2) : VITESSE": VIT 
QG DISFLAY ÀT(4,2): "COLLISIONS":sCOLLISI 


820 GOTO 430 
30 POINTS=POINTS-VIT#Z 
19 CALL MOTION(#1,0,0) 
50 FOR I=i TO 5 
bb CALL SCREEN(7) 
70 CALL SOUND(-500,-7,1) 
80 CALL SCREEN(2) 
à NEXT I 
D IF SS$="N" THEN 720 
Q CALL SAY("S O0 5,5 O S,,#TRY AGAIN#") 
à COLLISION=COLLISION+I 
IF COLLISION=10 THEN 960 
1 VIT=1 
o GOTO 430 
760 FOR I=i TO 28 
70 CALL MOTION(HI, 0,0) 
Q NEXT I 
790 F$=" 
EN FIN DE COURSE VOUS OBTENEZ ‘ 
800 A$=STR$ (POINTS) 
910 R$=" POINTS ET AVEZ 
920 C#=STR$ (COLLISION) 
350 0$=" COLLISIONS...., 


FROVOQUE 


940 MS=PHSASLRELCELDS 
Q FOR I=1 TO LEN(M#) 
D DISPLAY AT(12,1):SEGS (MS, 1,28) 
76 CALL SOUND(1,29#100+110, 10) 
j NEXT I 
20 CALL CLEAR 
300 INPUT "DESIREZ-VOUS REJQUER (O/R)7": 
IF M$="N" 
VIT=10 
COLLISION=0 
POINTS=0 
50 GOTO 250 
960 IF SS$="N" THEN 850 
970 CALL SAY("OH, , YOU+ARE+OUT+OF+COURSE, 
, « SORRY+THE 1+GAMES+IS+OVER") 
980 GOTO 890 


THEN END 
320 
CRE 
340 


950 
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Kermit la grenouille 


Alexandre Duback 


Kermit est une charmante petite gre- 
nouille verte à laquelle, vous vous en 
doutez, il arrive des tas d’ennuis. Elle 
se trouve en effet au bord d’une 
route sur laquelle passent des ca- 
mions en très grand nombre. Bien 
entendu, elle n’a qu’une envie, celle 
de traverser cette route. 


Une fois franchi ce dangereux obsta- 
cle, elle trouve une rivière. Pas de 
problème, direz-vous, pour une gre- 
nouille. Eh bien si ! Kermit, encore 
un peu jeune sans doute, ne sait pas 
nager. Elle doit donc attendre que 
des feuilles flottant sur les flots bleus 
passent à sa proximité pour sauter 
dessus et, progressant ainsi de feuille 
en feuille, atteindre l’autre rive. Mais 
elle est étrange cette rivière : certai- 
nes feuilles vont dans un sens, que 
l'on peut imaginer comme celui du 
courant, mais d’autres vont en. sens 
contraire. Influence du vent sans 
doute... 


La rivière étant traversée, il reste en- 
core une route, avec toujours autant 
de ces énormes monstres que sont 
les camions lancés par ces dingues 
d'’humains à des vitesses folles. Et 
pour eux, la vie d’une grenouille... 
Pensez donc ! Il vaut mieux essayer 
de se faufiler que de compter qu’ils 
vont faire attention. 


Lorsque Kermit a terminé son trajet, 
elle se retrouve à son point de dé- 
part, avec des obstacles toujours pa- 
reils. Et si elle n’arrive pas, c’est l’une 
de ses soeurs qui prendra sa place 
(Kermit fait partie d’une famille de 
cinq enfants, vous ne saviez pas ?). 
Le score du joueur est le nombre de 
traversées réussies par les cinq petites 
grenouilles. 


Vous avez certainement remarqué 
que ce programme est en Basic 
Etendu. Il utilise abondamment les 
sprites (ou lutins) et je crois qu’une 
petite révision des instructions les 
concernant ne sera pas inutile. 


CALL SPRITE 


CALL SPRITE (-numéro de sprite, 
numéro de caractère, couleur, ligne, 
colonne, vitesse horizontale, vitesse 
verticale) 


Vous pouvez utiliser 28 sprites, nu- 
mérotés de 1 à 28. Leur forme est, 


préalablement à l’utilisation de cette 
instruction, définie par un CALL 
CHAR. Le numéro de ce caractère 
est donc celui qui est inscrit ici. La 
couleur est définie pour tout le sprite, 
le fond étant obligatoirement transpa- 
rent. Les autres valeurs ne posent 
pas de problème. 


Sachez que lorsque deux sprites se 
rencontrent, celui qui est de numéro 
le plus faible passe devant l’autre, 
c'est-à-dire que, par exemple, le 
sprite -1 peut masquer le sprite -2 
mais jamais il ne sera masqué par lui. 


CALL COINC 


CALL COINC (-numéro, -numéro, 
tolérance, variable numérique) 


A la place du second numéro, on 
peut mettre des numéros de ligne et 
de colonne (non précédés du signe 
-). On peut encore écrire : 


CALL COINC (ALL, variable numé- 
rique) 


Cette instruction teste la rencontre 
entre deux ou plusieurs sprites. Si 
une telle rencontre se produit, la va- 
leur 1 est attribuée à la variable nu- 
mérique. Dans le cas contraire, cette 
variable est égale à zéro. 


La notion de tolérance est impor- 
tante : elle détermine en fait le ni- 
veau. de difficulté du jeu. Une tolé- 
rance importante permet en effet de 
ne faire se chevaucher les sprites 
qu’approximativement, sinon pas du 
tout. À la limite, il suffit que le pre- 
mier sprite soit proche du deuxième 
pour que la valeur de la variable soit 
mise à 1. 


Si vous voulez ”’corser” ce jeu, après 
avoir atteint le niveau d’un vrai pro- 
fessionnel, il vous suffit donc de mo- 
difier en conséquence toutes les ins- 
tructions CALL SPRITE. 


CALL MOTION 


CALL MOTION (-numéro, vitesse 
horizontale, vitesse verticale) 


Cette instruction se contente de mo- 
difier les caractéristiques de déplace- 
ment d’un sprite. Dans ce pro- 
gramme, elle est essentielle : Kermit 


avance lorsque l’on appuie sur E, 
stoppe lorsque l’on relève le doigt, se 
déplace horizontalement vers la qau- 
che ou la droite selon la feuille sur 
laquelle elle se trouve, etc. Toutes 
ces modifications de trajet sont obte- 
nues par CALL MOTION. 


Il ne faut surtout pas oublier que 
lorsqu'un sprite est lancé, il ne 
stoppe ou ne modifie sa trajectoire 
que si on lui en donne expressément 
l'instruction. Essayez le petit pro- 
gramme suivant : 


10 CALL CHAR(100,”F”) 
20 CALL SPRITE!(1,100,2,10,12,5,5) 
30 GOTO 30 


Tant que vous n'aurez pas fait 
?CLEAR”, vous verrez le sprite faire 
une trajectoire constante. Modifiez 
maintenant : 


30 FOR DELAI = 1 TO 500 
40 NEXT DELAI 

50 CALL MOTION(-1,0,0) 
60 GOTO 60 


Vous voyez alors le sprite faire un 
petit bout de trajet (le temps que la 
boucle vide se termine) puis stopper 
dans un coin de l’écran, lorsque le 
programme exécute la ligne 50. 


NB : la ligne 60 a pour objet de faire 
tourner le programme sur lui-même 
dans l'attente d’un ’CLEAR”. Il faut 
utiliser ce truc, sans quoi le pro- 
gramme s'arrête et le sprite disparait. 


CALL PATTERN 


CALL PATTERN (-numéro, numéro 
de caractère) 


Cette instruction modifie la forme 
d'un sprite en lui attribuant une 
forme définie par un autre caractère 
que celle primitivement attribué dans 
CALL SPRITE. Il en est ainsi, par 
exemple, lorsque Kermit se fait écra- 
ser par un camion : elle devient une 
horrible tache verte sur la route (que 
les âmes sensibles évitent donc ce 
jeu !). 


Conclusion 


Mes enfants utilisent beaucoup ce 
programme qu’ils trouvent très 
sympa”. J'ai été obligé, pour pou- 
voir comparer mes scores aux leurs, 
de leur fournir une version plus diffi- 
cile (avec une plus petite tolérance). 
Et ces petits diables continuent de 
progresser. 





*)') MAGAZINE n° 2 


SO REM RARE ER ER EME 
60 REM *  KERMIT LA GRENOUILLE + 
70 REM * COFYRIGHT 99 MAGAZINE 

80 REM * ET J. DE WINTER 


120 CALL CLEAR :: CALL SCREEN(Z):s CALL 
COLOR (14,8,8):: CALL COLOR(15,6,6)s:: CAL 
L COLOR(12,15,15) 

130 CALL COLOR(T,16,15):: 
(ALL) :: CALL MAGNIFY(E) 
140 CALL COLOR(1,6,16):: FOR 
"CALL COLOR(I,6,16)s5: NEXT I 
150 CALL COLOR(S,10,10) 

160 ee. 
170 
180 
190 


200 


CALL DELSPRITE 


CALL 
CALL 
219 CALL 
220 CALL 
250 CALL 
2409 CALL 
230 CALL 


CH&R CSS, "FFFSEOCOCOS08080") 
CHER (54, "FF1FO70303010101") 
CHAR (SS, "0101010303071FFF") 
CHAR (56, "O0071F3F3F7FFFFEF") 
CHAR C7, MOOOOOOFFFFEFFFFFE ") 
CHAR C3, "FFFFFFFFFE") 

230 CHBK (40, "OOGOOGFFFFFFFE") 

260 CALL CHAR (136, "OOOOOOOOFFFFFFEFFEFFFF 
FFFOGOOGOGOOOONOOGCGOCEFEFFFFFFFFFECE") 

270 CALL CHAR(152, "00000000737FFFFFFFFF7 
FFIOCUOOOOOOOGOOOOOOGFFFFEFEFFEFEFFFEFEFE ") 
299 CALL CHAR (128, "0107077F7F7F7FFFFFFEFF 
F7F1FOFOFOSOSFCFCFCFCFCFEFFFFFFFFFEFCFSF 
GAQ") 

290 CALL CHAR (124, "O7OFOFIFYF7FFFEFFFETFE 
F7F3F1FOFO7BOFSFOFOSFSFEFEFFFFFSFSF8FFF8C 
990") 

300 CALL CHARCI2O0, "O1OS7FFF7F7FT7FFFEE7E7 
F1FIFIFIFOILEOFOFSFCFEFFFEFFFFFFFEFEFCFOF 
QEG") 

310 CALL CHAR (116, "OSOFIFSF7FFFEFFFFEZFS 
FSFSFSFIFIICOFOFOFSFEFFFFFFFFFEFEFEFEEGE 
980") 

320 CALL CHAR (112, "O10307031H070F2F2FIFS 
F1B80060000080C0E0COD8E0FOFAF4FAFCDS") 
HE0 CALL CHAR (106, "ORO7OFOFOFRFRFFEFFFEFFF 
FFF7D38100080E0E0FOFCFFFFFFFFFEFCFOESNA4Q0 
01) 

340 CALL CHAR(IOA, "OFTG4047899:979797979 
3884740300FFO00C02E211C9E9E9E9E9C911E2020 
CFO") 

250 CALL CHAR CIO, PODOOOIOANRIANGREAPER9 1 
40B04G500000000C020D62994D4)49428D020C") 
360 CALL CHAR (96, "0000000000010205050201 
000060000000000000000804084040408") 

370 GOSUB 17890 

380 CALL SPRITE(#9,112,13,140,685) 

390 FOR I=10 TO 16 :: CALL HCHBR(I, 10,32 
2): MNEXT I 

400 DISPLAY AT(11,9)SIZE(19): "MON NOM ES 
T KERMIT”® 
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410 DISFLAY AT(IZ,9)SIZE(19): "FAITES *S° 
FOUR" 

420 DISFLAY AT(IS,9)SIZE (19): "COMMENCER 

LE JEU." 

450 CALL HCHAR(IG, 10,7 
,29,34)3: CALL HCHAR(16,29,235):: 

HAR(17,10,36) 

440 X=X 

ASQ X=X 

465 GOSUER 1730 

470 CALL DELSPRITE(#H9)3: 
130,268) 

480 FOR I=5 TO 8 :: 
NEXT I 

4çû 
300 
Siû 
SE 
SE 
540 


350 


560 
570 
580 
390 
TRS] 
810 
BE 
CRE 
&4i 
650 
ETAT 
&75 
685 
&90 
750 
7iû 
720 


CALL HCHAR (10 
CALL HEC 


CALL HCHAR 19,1, 


CALL COLOR(I,7,16):: 


OVER=0 
CALL SPRITE{#1,136,5, 168, 1,0,36) 
CALL SPRITE(#2,136,5, 168, 140,0,36) 
CALL SPRITE{#3,132,5,154,256,0,-31) 
CALL SPRITE(#4,132,5,154,130,0,-31) 
CALL SPRITE{#5,136,5,19,56,0,32) 
CALL SPRITE(#6,136,5,19,196,0,32) 
CALL SPRITE(#7,132,5,33,200, 0,-39) 
CALL SPRITE(#B8,132,5,33,60,0,-39) 
CALL SPRITE(#10,128,11,70,40,0,8) 
CALL SPRITE(#11,124,12,70,123,0,8) 
CALL SPRITE{(#12,120, 12,70, 206,0,8) 
CALL SPRITE(#13,116,11,92,20,0,-7) 
CALL SPRITE(#14,128,11,92,104,0,-7) 
CALL SPRITE(#15,174,12,92,196,0,-7) 
CALL SPRITE(#16,120,11,116,50,0,6) 
CALL SPRITE(#17,116,12,116,136,0,6) 
CALL SPRITE (#18, 128,11,116,224,0,6) 
KER=1 


CALL SPRITE(#9,112,13,184,129,0,0) 


730 
740 
750 
760 
770 
780 
790 
SC 
810 
820 
930 
840 
850 
860 
870 
880 
890 
go 
910 
920 
930 


DISFLAY AT(1,20)SI7ZE (8): "KERMIT':EER 
GOSUE 1750 

CALL LOCATE(K#9,188,13û) 
GOSUE 1740 5: S=i :: Si=2 
C8LL KHEY(I,L, LL) 

GOSUE 1580 

IF FLAT=1 THEN 1580 

IF LLeQ THEN 800 

CALL LOCATE(KG,154, 130) 
GOSUR 1760 :: S=5 :: Si=4 
CALL KEY (I,L,LL) 

GOSUE 1580 

IF FLAT=1 THEN 1580 

IF LL=O THEN 860 

CALL LOCATE{HK9,140,130) 
GOSUE 1760 

GOSUE 1730 

CALL LOCATE(#9,116,132) 





55 
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340 CALL COINC(K9,#16,4,D1):: CALL COINC 
(#9,#17,4,D2):: CALL COINC(#9,#18,4,D3) 
950 IF Di<:0 OR D2£50 OR D3<:0 THEN CALL 
MOTION(#9,0,6):: GOSUB 1760 :: GOTO 970 
980 Y=116 :: X=1354 :: GOTO 1620 

970 CALL KEY(1,L,LL):: CALL POSITION(#9, 
Ÿ _X) 

589 IF X:249 THEN 1580 

390 IF LLe=O THEN 970 

1000 CALL FOSITION(H9,Y, X) 

1610 CALL LOCATE(#9,92,X)s:: CALL COINC(# 
9,#13,4,D1):: CALL COINC(#9,#14,4,D%):: 
CALL COINC(#H#9,#15,4,D3) 

1020 IF D1£50 OR D2£50 OR D3<:0 THEN CAL 
L SPRITE(#9,112,13,92,X-0,0,-7)s:2: GOTO 1 
40 

1050 Y=92 :: GOTO 1620 
1046 GOSUB 1760 

1050 CALL KEY({I,L,LL)s: 
ss X) 
1060 
1970 


CALL FOSITION(H9 


IF X£5 THEN 1380 

IF LL=G THEN 1050 
1990 CALL FOSITION(H9,Y,X) . 
1090 CALL LOCATE(#9,70,X)s:: CALL COINC(H 
9,#10,4,D1):: CALL COINC(#9,#11,4,D2):: 
C&LL COINC(#49,4#12,4,D5) i 

1100 IF Di£:O OR D2<5:0 OR D3<%0 THEN CAL 
L SFRITE(#9,112,15,70,X+0,0,8):: GOTO 11 
20 

1110 Y=70 :: GOTO 16420 
1120 GOSUE 1760 

1150, CALL KEY({(1,L,LL):: 
:Ys 2 
1140 
1150 
1189 


CALL FOSITION(H9 


IF X:248 THEN 1580 

IF LL=O THEN 1150 
GOSUE 1765 

1170 CALL FOSITION(#9,Y,X) 
1189 CALL LOCATE(#9,50,X)z: 
#9,0,0) 

1190 IF X2118 OR X:158 THEN Y=65 2: 
B 1620 :: GOTO 1380 

1200 GOSUR 1730 
1210 GOSUE 1760 
1: S=7 :: S1i=8 
1220 CALL KEY(1,L,LL) 

1250 GOSUE 1580 

1240 IF FLAT=I THEN 13580 

1250 IF LL=0 THEN 1720 

12860 GOSUB 1750 

1279 CALL LOCATE(#H9,19,X) 

1280 S=5 :: Si=é 

12909 CALL HEY({1,L,LL) 

13500 GOSUB 1580 

1310 IF FLAT=I THEN 13890 

1320 IF LL=ûü THEN 1290 

330 GOSUB 1750 :: CALL LOCATE(#9,5,X) 
1:40 FOR DEL=I TO 400 :: NEXT DEL 

1350 J=J+1 

1369 X=X 


CALL MOTION( 


GOSU 


55: CALL LOCATE(H9,35,X): 


1570 OVER=OVER+1 :: GOTO 710 

1390 KÉER=EER+1 11 IF KHER£+6 THEN 710 
1590 CALL HCHBR(1,1,140,532):: CALL DELSF 

RITE{ALL) 

1400 CALL SFRITE{#9,112,13,149,46) 

1419 FOR I1=19 TO 16 :: CALL HCHAR(I,8,32 
.25)s: NEXT : 

1420 DISPLAY AT(11,7)SIZE{21):"TRAVERSEE 

S :"5 OVER 

1430 IF OVER=Q THEN M$="VQUS ETES NUL !" 
1: GOTO 1480 

1440 IF OVERES THEN M$="MOYEN" 3: 

480 

1450 IF OVER<10 THEN M$="AMATEUR" 

D 1485 

1460 IF OVER<19 THEN M#="TRES EON !" 2: 

GOTO 1480 

1470 M$="FROFESSIONNEL" 

1480 DISPLAY AT(13,7)SIZE(19):MS 

1490 CALL HCHAR(10,8,33):: CALL HCHAR(IO 
,20,34)s:: CALL HCHBR(16,30,35)s:: CALL HC 

HAR(17,8,36) 

1500 DISFLAY AT({15,7)S17E (19): "ENCORE UN 
COUF OGN7" 

1510 CALL KHEY(O,ST,ED):: CALL KEY(I,TS,D 

E) 

1520 IF ST=78 THEN 370 

1530 IF ST<:79 AND TS2%23 THEN 1510 

1540 CALL DELSFRITE(#9):: CALL HCHAR(9, 1 
:130,298):: GOTO 500 

1550 REM 

1560 REM TEST ROUTE 

1570 REM 

1589 CALL COINC(#9,84S,20,TEST):: CALL CO 
INC{H9,HS1,20,TESTI) 

1590 IF TEST=0Q AND TESTI=0 THEN RETURN E 

LSE CALL SOUND (600,-7,0) 

18400 CALL FATTERN(K9,100)s:: PLAT=L 1: 

R DEL=1 TO 400 :: NEXT DEL 

1610 RETURN 

1629 REM ACCIDENT 

16430 CALL DELSFRITE (#9) 

1640 CALL SFRITE(#20,104,16,Y, X) 

1650 CALL SOUND(809,111,2) 

1660 FOR DEL=I TO S0 s: NEXT DEL 

1670 CALL PFATTERN(#H20, 100) 

1680 FOR DEL=1 TQ 100 5: NEXT DEL 
1690 CALL FATTERN(#20,96) 

1700 FOR DEL=1 TO 160 :: 

1710 CALL DELSFRITE (#20) 

1720 GOTO 1380 

1730 CALL KEY(I,L,LL) 

1749 IF LL=O THEN 1750 ELSE RETURN 

1750 REM Ne supprimez pas cette ligne 

1760 CALL SOUND {(65,-5,0) 

1770 RETURN 

1780 CALL HCHAR(1,1,1409,64) 

1799 CALL HCHAR{S,1,120,128) 

1890 CALL HCHAR(7,1,140,32 


GOTO 1 


5: GOT 


FO 


NEXT DEL 
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CALL 
CALL 
CALL 
CALL 
CALL 
CALL HCHAR (24, 1,140,32) 
FOR TT=0 TO 17 STEF 17 


HCHAR (8, 1,37, 32) 
HCHAR (9, 1,120, 288) 
HCHER(18,1,38,32) 
HCHAR (19,1,140,32) 


Si vous habitez une grande ville, 
vous avez sans doute remarqué, 
dans certains endroits proches du 
centre commercial, des gens qui pro- 
posent aux passants leur horoscope 
et leur biorythme calculé au moyen 
d’un ordinateur. Mellab Karim s’est 
inspiré de cette idée et, faute de pou- 
voir faire un horoscope (trop littéraire 
pour les capacités du TI-99), a fait le 
programme du biorythme. 


Je pense que vous savez ce dont il 
s’agit: une théorie, d’origine améri- 
caine, affirme que chacun de nous 
passe par des périodes de ”’haut” et 
de ”’bas” au cours desquelles il est 
plus ou moins en forme. Les inven- 
teurs de cette théorie prétendent que 
ces périodes s'organisent en cycles 
réguliers ayant leur origine à la nais- 
sance de l'individu. Il est donc possi- 


HCHAR (20, 1,120, 128) Ti: 


G' & :z 
51 NEXT TT 


1900 FOR TT=0 TO 11 STEF 11 :: 


CALL HCHAR(T+TT,17,40,2):: 


NEXT T 


FOR T=7 T 


O 8 se CALL HCHAR(T4TT,146,100,4):: NEXT 


NEXT TT 
1890 RETURN 
se FOR T=5 T 


Le Biorythme 


ble, en calculant l’évolution de ce 
cycle jusqu'à une date donnée, de 
déterminer avec précision le niveau 
auquel se trouve l'individu à cette 
date. 


Les trois cycles du biorythme sont les 
suivants : 


- forme physique : 23 jours; 

- sentiments : 28 jours; 

- intelligence : 33 jours. 

Chacun de ces cycles se représente 
par une courbe sinusoïdale dont la 
période est égale à la durée du cycle, 


et dont l’origine se situe au point 
zéro au jour de la naissance. 


Le programme que nous vous pro- 
posons réalise le calcul des trois 


Thomas Coppens 


courbes du biorythme et peut vous 
les présenter sous deux formes diffé- 
rentes : en graphique ou en texte in- 
diquant les valeurs quotidiennes. De 
la sorte, si vous disposez d’une impri- 
mante, vous pouvez, après les amé- 
nagements éventuellement nécessai- 
res de ce programme, d’une part 
afficher le graphique et, d’autre part, 
éditer les textes. Remarquez qu’en 
outre le programme vous indique le 
jour de la semaine. 


Lorsque vous taperez ce programme, 
vous remarquerez dans le listing cer- 
tains signes bizarres : ne vous inquié- 
tez pas, c’est mon imprimante qui est 
réglée pour les sortir. En fait, il s’agit 
simplement des crochets ouvrant et 
fermant. Tapez alors ces signes à la 
place de tout autre signe que vous 
ne trouvez pas sur votre clavier. 


MON BIORYTHME. 
EST AU PLUS BAS ! 














100 CALL SCREEN(S) 
110 
120 
130 
140 
150 


160 


REM * 


CALL CLEAR 
FOR I=1 TO 3 


:):) MAGAZINE n° 2 


FEM HADEEEEEEUEDEEEDEUEEMEEEDEEDEIEIEIE 
REM + COFYRIGHT 99 MAGAZINE # 
ET MELLAE KARIM 


170 READ 
189 NEXT I 
190 DATA 
# LECTUEL" 


200 FOR I=i TO 


G$ (I) 


"PHYSIQUE", "SENSIBILITE","INTEL 


mr 
22 


210 CALL COLOR(I,16,1) 


220 NEXT I 
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230 CALL CHAR(138,"007844447840404") 750 Mi=M 
240 CALL COLOR(14,5,16) 800 A1=A 
250 CALL CHAR(148, "0038444038044438") 810 A3=A1/4 
260 CALL COLOR(13,2,1) 820 AZ=INT(A3#10) 
270 CALL COLOR (15, 16,14) 30 A1=(A2/10)-INT (AS) 
280 CALL COLOR(16,11,7) 840 GOSUB 1270 
290 CALL CHAR (158,"0038101010101038") 850 GOTO 2000 
300 FOR I=1i TO 7 860 F=N-HH 
310 READ C#il) 870 PRINT : 
320 NEXT I 880 JI=N 
330 DATA " VEN"," SAM", DIM", LUN", M | 890 INPUT "Four combien de jour le biory 
&R"," MER"," JEU", thme?:":86 
340 CALL CHAR(128,"0010387C381") 900 IF GH=2 THEN 2520 
350 DEF FI=3.14159 910 CALL CLEAR 
360 GOSUB 2740 920 V$=" DATE Fe 
370 CALL CLEAR 930 H=1 
380 B=23 940 VE=0 
290 Vé='"x HIORYTHME x" GE0 GOSUER 1850 
400 H=2 . 960 CALL CHAR(IS, "OO0000FF") 
410 VESS 970 CALL HCHAR(Z,1,33,32) 
429 GOSUB 1850 980 CALL VCHAR(3,21,58,22) 
AIO NES NRRRERREREREEL" DO 77-178 
440 H=1 1000 VV=77 
450 GOSUE 1850 1G10 H=z 
460 H=S 1070 V=P 
470 GOSUB 1850 1030 FOR BB=3 TO EG+? 
380 V#$="RIORYTHME GRAFH OÙ NUM?" 1040 II=EE 
490 H=S 1050 B=23 
300 VE=S 1060 Z7=1?8 
319 GOSUE 1830 1070 IF BB:24 THEN 1080 ELSE 1150 
520 V$="APPUYEZ SUR: 1) GRAF" 1080 11-74 
350 H=6 + 1990 CALL SOUND (300, 1900, 6) 
0-SOSUE 1899 1100 CALL KEY (0, KEY, STATUS) 
250 N PR LENON" 1110 IF STATUS=0 THEN 1100 
LE «wa 1120 PRINT 
PAT RAS 130 t(24,21,5 
580 GOSUB 1830 sa ar ème PERRET Er a 
590 CALL SOUND (200, 1800, 4) POPETE D 

É : Re JE & 
600 CALL KEY(O,KE, ST) 1160 GOSUB 1340 
610 IF (ST=0)+(KE{49)+(KE>50) THEN 600 db: Sales 
620 CALL SOUND (200, 1100, 2) A ee pa 
630 GH=KE-48 1190 VV=77 
Eee CARE APE 1200 GOSUB 1440 
650 INPUT "Voulez vous donner votre date 1710 NEXT J 

de naissance? °JJ,MM,A68AS:":9J,M,A 1770 V=V+i 
660 XA=A/4 pa at 

: 1230 JJ=JJ+1 

670 YA=INT(XA) : ue 

PAR 2 1240 GOSUB 1510 
GER SRE 1250 NEXT BE 
a 1260 GOTO 2400 | fi 
15 TOSUE 1270 1270 IF M-3>0 THEN 1280 ELSE 1300 
Le . 1280 M=M+1 


 . | 1290 GOTO 1320 

750 INFUT "Donnez la date pour le bioryt 1300 A=A-1 

hme?°JJ,MM, AARAS: ":J,M, A 1310 M=M+13 

ss rh 1520 N=INT(SÉ6S, 2540) +INT (30. 6xM)+J 
CR es 1330 RETURN 

| SR 1340 Z=V/E 

770 GOSUB 2900 1250 Y=INT(Z) 


780 Ji=J 1360 X=Z-X 
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1370 X#2 1940 MI1=3 

1380 T=X#FT 1950 RETURN 

1290 R=SIN(T) 1960 IF (J1379)+(Mi=2)# (8120) THEN 197: 
1400 E=R#100 LSE 700û 

1410 W=INT(E) 1970 Ji=i 

1420 W=W/100 1980 Mi=3 

1450 RETURN 1990 RETURN 

1440 A=(W#9) +21 2000 IF (J1r51)#{M1=S) THEN 
1450 CALL GCHAR(ITI,AÀ,G6) (a 

1480 IF (GG=32)+(GG-58) THEN 1460 2010 gi=i 

1470 17=128 Hi=4 

1480 CALL HCHBR(IT, 8,22} 20 RETURN 

1490 ZZ=VV 2040 IF (J1:30)#(M1=4) THEN 7050 
1500 RETURN Ô 

1510 F={(gJ-1)/7 2050 Jiz=i 

1520 F£<INT{P#10) 2060 M1=5 

1530 L=ABS(INT(F)-(F/16)) 2070 RETURN 

1540 IF Leû THEN 1610 ® 2090 IF (J1sSl)# (MIS) THEN 2990 
1550 IF L=.1 THEN 1630 © 

1560 IF Lz.2 THEN 1650 Ji=l 

1570 IF .4 THEN 1670 2100 Mi=é 

1580 IF L=.5 THEN 1690 2110 RETURN 

1590 IF L=,7 THEN 1710 2120 IF (J1r50)+#{Mizé) THEN 
1800 IF L=.8 THEN 1750 Ê 

16810 N$&=C#(1) Jisi 

1620 GOT 1740 2140 M1=7 

1850 N$=CS$ (2) 2150 RETURN 

1440 GOTO 1740 2160 IF (J1»31)#(M1=7) THEN 
1650 NS=CS (CT) f} 

ié&éo GOTO 1740 2170 Mi=8 

1470 Né=C#$(4) 7180 Ji=i 

1680 GOTO 1740 2190 RETURN 

ORDRES 2200 IF (J1>31)#(M1=8) THEN 
1700 GOTO 1740 fi 

1710 N#=C$ (6) 2910 Ji=i 

1720 GOTO 1740 DO: Mont 


de du du 


F4 
À 

+ 
l 


1750 NS=CE {7} PARAIT FETUEN 

1740 Vé=Ngt"e "RSTRS (JL) R"/"LSTRS (ML) 2240 IF (J1530)#(M1=9) THEN 

750 VE=0 0 

1760 GOSUE 1830 ASP ERIER 

1770 Ji=Ji+i . ns 

1780 IF J1528 THEN 1790 ELSE 1810 SFTD RETURN 

ir ei cils 2280 IF (J1721)#(M1=10) THEN 2290 ELSE 
2 5 PA A J à à Fu D TN LL ï Fe LE 

no REA AE = 

1820 RETURN Nan 

1830 FOR I=1 TO LEN(VS#) 208 TEE 

1840 AS=ASC(SEGS (VS, 1,1)) 2310 RETURN 

1860 NEXT I E 

1870 RETURN 2350 J1=1 


1880 IF (J1+21)#(Mi=1) THEN 1890 ELSE 2340 MIS1E 
û 2250 RETURN 


1890 Ji=i 2360 IF (J1?31)#(M1=12) THEN 2370 ELSE 


1900 M1=2 90 ; 
1919 RETURN 2570 Ji=i 


1920 IF (J1328)#(MI=2)#(A1230) THEN 19230 | 2380 MI=1 
ELSE 1960 2290 RETURN 


1920 Ji=1 2400 CALL KEY(O,K,S) 
2401 IF S=0 THEN 2400 
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i 


Fa ph 


2440 


tu PALLE 
È HIS 


THER 


"TE 


EE TG 1 
M EU Hi QC 
ec es IU Q) I 


Æ D 0) m4 Cu € 2 
DO Nr 
rs (fi HO 
EE CE CG Ga + 
— ET es pe pe 


j 
bi 


240 
"FRCSRY 


ni 


VOUler vous 


2 G 
2 © M 

À 4 
E G 
= 


LE 
à 
1 


[e 


ELSE 


AMMEs SIORYTHME"s 3 5: 
DES EXD 


CALE 
INT 
tre biorvt- 
2810 PRINT 
ordinateur va 
ue desi 


2780 RETURN 


sa F 


YOUS 


apres 


CLEBR 
HRIORYTHME "se Pour 
Mu "bme: # 


CSS 
d 


VOUS 


Fer n 


“(graphique ou numerique). 


date 


de naissance":"{pour 


Î RIRE # 


PAUL 


in 


2520 ELSE 

RBELSEr 1 Li 
286 PRINT 
i'thme d° 
uite," 

2870 FRINT 
"Le 18 
2880 INPUT 

LA 


4 


2890 RETURN 
DOG IE 
0) THEN 
2919 IF 
} THEN 
09") 


FRA RS 


1 
LE #0 


Ca EN Ca 


e 
ee 
me ue CN 


bd bd 
NH) 
Css Gi 


AQ%0 
LT 


2940 
2950 
ER 
2960 
2970 
2980 
2990 
3000 j 


lications | 3010 


fu + 


un j£ 


°FGUr 
meme facon." 
"POUR 
ENTER SE USERS 


2HH THEN 
8éû 


CL 


PRET 
fi 

F- 
ad 
ft 
Ce: 
ss 
ff 


ü 
CE 
Hal 
CE 


En 
La 
CL 
ft 


une" 
touche 
GuE 


INIST 
de plus 


le mode 


CONTINL 


LA LE 


EL Ti+ 


A PR 
Pad jen LE 


THEN 2950 


AO 


CROSS 


ES 


EOG20 FRINT "La d 
JEtIEs 


3030 GOT 


: F4 
=UON)+IRS=UNU)THEN 2770 


mit 


ELSE 


A 


FE 
f« 


R&="0" THEN 


Economisez de la 
disquette 


Un truc pour les heureux possesseurs 
d'unités de disquettes. Sur TOUTES les 
disquettes du commerce, les deux faces 
sont enduites de matière magnétique. Ce- 
pendant une seule de ces faces est 
contrôlée en fabrication et les disquettes 
sont vendues en ‘simple face”. 


Pour les utiliser en double face, il faut en 
premier lieu faire une encoche sur le 
côté, symétrique par rapport à celle qui 
est déjà faite. L'outil idéal est une pince 
de tiercé. Prenez bien garde à faire cette 
seconde encoche à la même hauteur que 
la première. Ne la faites pas trop pro- 


2790 ELSE 


rm ie 
</0o0 


fonde afin de ne pas abimer le support 


magnétique. 


En second lieu, il faut vous munir d'une 
perforatrice à un seul trou dont vous gar- 
nissez la base d'une matière douce 
comme de la feutrine adhésive. Cet outil 
prêt, examinez votre disquette. Lorsque 
vous la tenez face à vous, trou de lecture 
vers le bas, vous constatez la 

d'un petit trou sur le côté droit du rond 
central. Il vous faut faire le même trou 
mais sur le ee gauche et à même hau- 
teur. 


Important : Fabriquer un masque en car- 
ton sur lequel vous allez repérer soigneu- 
_. les endroits que vous devrez per- 
orer 


meer 


Glissez la partie basse de la nn 
entre le support magnétique et 


_ positionnez bien à l'endroit pr 


puis 

pr Cette opération est très L'ééleate et 
e risque est grand de détériorer mc 

isquette.  . 


Nous vous conseillons de ne rie cette 
opération qu'avec des disquettes neuves. 

En effet, si vous détériorez une partie de 
disquette sur laquelle se trouve une infor- 
mation, cette information sera perdue à 
jamais. Si, en revanche, il n'y a rien sur 
la disquette, l'opération d'initialisation re- 
pérera le secteur détérioré comme un 
secteur occupé. Il n'y aura donc plus 
jamais d'information à cet “endroit 

(359x2) 
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Les informations publiées ci-dessous 
nous ont été transmises par Texas 
Instruments. Nous n'avons pas eu 
l’occasion, comme ces produits sont 
pour la plupart, seulement annoncés 
et non encore disponibles (à la date 
de rédaction de cet article), de les 
tester pour vous. Nous ne nous pri- 
verons pas de le faire dès qu'ils se- 
ront disponibles. Tous les produits 
présentés ci-dessous sont des pro- 
duits nouveaux, non encore com- 
mercialisés au moment de la rédac- 
tion de cet article. 


Logiciels co-édités 
TI - Ivan Berg 


Ces logiciels sont attendus sous 
forme de cassettes, au prix approxi- 
matif de 140 francs pièce, et de- 
vraient être disponibles dans le cou- 
rant du mois de novembre. 


Tests de maths - 1 


Programme de révision en arithméti- 
que, algèbre, géométrie, sur les vec- 
teurs et en trigonométrie. 


Tests de maths - 2 


Programme permettant de s'exercer 
dans des domaines variés tels que 
l’arithmétique, la résolution d’équa- 
tions, l'étude analytique de fonctions 
et la trigonométrie. 


Tests de physique 


Programme éducatif traitant des cir- 
cuits électriques, des lois de l’électri- 
cité et de magnétisme, de l’électroni- 
que, de la propagation des ondes, et 
de la lumière, des forces et des lois 
de la mécanique. 


Tests de chimie 


Découvrez les secrets de la classifica- 
tion périodique des éléments, des 
liaisons atomiques, des niveaux 
d'énergie, des questions REDOX de 
la chimie organique. 


Tests de biologie - 1 


Programme traitant de sujets élémen- 
taires de biologie, nutrition, respira- 
tion, circulation, reproduction, sys- 
tème nerveux et biologie de 
l'environnement. 


Tests de biologie - 2 


Ce programme constitue la suite logi- 
que du volume 1. Il traite des mêmes 
sujets, mais plus en profondeur. 


Logiciels co-édités 
TI - Collins Education 


Ces logiciels, attendus en novembre, 
seront commercialisés au prix ap- 
proximatif de 140 francs pièce. 
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Micro-informations 


Introduction au TI-99/4A 
Volume 1 


Ce logiciel, destiné aux débutants, 
est constitué d’un livre décrivant et 
expliquant les instructions du TI 
Basic (RUN, SAVE, OLD, GO TO), 
FOR-NEXT) ainsi que d’une cassette 
comportant plusieurs programmes (TI 
Basic) expliquant, entre autres, la 
programmation de graphiques, de 
sons et de couleurs ainsi que l’utilisa- 
tion d'instructions propres au TI 
Basic telles que CALL HCHAR, 
CALL KEY... 


Introduction au TI-99/4A 
Volume 2 


Ce logiciel est la suite du précédent. 
Il explique des instructions en TI 
Basic un peu plus complexes telles 
que ON... GOSUB, GOSUB, VAL, 
STR$, DIM, OPTION BASE. Il traite 
aussi de la façon d’organiser un pro- 
gramme, des sous-programmes et la 
définition de caractères. Un pro- 
gramme permet d'illustrer l’utilisation 
des matrices, du graphisme et des 
sons. 


Les techniques des programmes 
de jeu - Niveau 1 


Ce programme permet d'acquérir 
l'art et la manière d'écrire des jeux 
sur ordinateur. Le manuel d’accom- 
pagnement présente des techniques 
de programmation, de déplacement, 
de labyrinthes, de tirs, de devinettes 
et de contrôle d'objets par l’intermé- 
diaire du clavier. La cassette contient 
six programmes en TI Basic illustrant 
toutes ces techniques. 


Les techniques de programmes 
de jeu - Niveau 2 


Ce programme comporte un livre 
traitant des jeux de stratégie et insis- 
tant sur le développement de sous- 
programmes permettant à l’ordina- 
teur de ”jouer intelligemment”. 


Les programmes stockés sur la cas- 
sette (Mastermind, Bataille Navale, 
Poker, etc.) sont des programmes de 
jeu en eux-mêmes et servent d’illus- 
tration pour les techniques de pro- 
grammation de jeux. 


Introduction aux échecs 


La cassette contient dix programmes 
permettant d'apprendre le mouve- 
ment des pièces, leur valeur et leur 
tactique de déplacement. Ce pro- 
gramme permet de jouer une partie 
contre l'ordinateur ou tout autre ad- 
versaire. Il existe même une option 
permettant au joueur de battre l’ordi- 
nateur ! Ce programme est vraiment 
conçu pour ceux qui veulent appren- 
dre à jouer aux échecs. 


Technique de gestion 
de données 


Le manuel d'accompagnement expli- 
que en détail les techniques de récu- 
pération de données et montre 
comment les programmes stockés sur 
la cassette peuvent être utilisés pour 
la gestion et l'analyse de données. 


Editeur VIFI 
International 


Les deux produits décrits ci-dessous 
seront réalisés sous la forme de cas- 
settes et vendus au prix approximatif 
de 100 francs pièce à partir du mois 
d'octobre. 


Compléments et multiples 


Cassette éducative s'adressant à un, 
deux ou trois enfants, avec trois ni- 
veaux de difficulté, et comportant 
deux jeux. Le principe du jeu ”’Com- 
plément” consiste à assortir deux 
cartes complémentaires dont la 
somme, selon le niveau choisi, est 
égale à 50, 100 ou 1000. Dans le 
jeu ”’Multiples”, il s’agit de reconnaî- 
tre deux cartes multiples l’une de 
l’autre qui, selon le niveau de diffi- 
culté, doivent être le double, le triple 
ou le quadruple de l’autre. Ces deux 
jeux permettent de se familiariser 
avec des notions importantes. 


Mes premiers mots croisés 


Cette cassette correspond au jeu bien 
connu des cruciverbistes. Adaptée à 
l'enfant, elle lui fait faire des exerci- 
ces de vocabulaire. Pour les mots dif- 
ficiles, l'enfant peut demander une 
deuxième définition. Le contrôle du 
mot tapé dans la grille s'effectue let- 
tre par lettre, ce qui constitue une 
bonne aide orthographique. Cette 
cassette comporte également un pro- 
gramme permettant à l’utilisateur de 
construire ses propres mots croisés. 


Editeur Magnard 


Les trois progiciels présentés ci-des- 
sous, baptisés ’studiciels” par le fa- 
bricant, seront vendus dès le mois 
d'octobre, sous forme de cassettes et 
au prix approximatif de 100 francs 
pièce. Outre ces trois cassettes, de 
nombreux autres programmes de 
mathématiques et de grammaire sont 
prévus pour des échéances ultérieu- 
res. 


Ponctuation 


Quelle impression désagréable laisse 
une copie ou une lettre maladroite- 
ment ponctuée ! Ce studiciel remet à 
leur juste place tous ces petits signes 
19: ;,....7 dont le bon usage est 
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essentiel à la clarté et à la force de 
tout message. 
NDLR : excellente, idée ? 


Ne confondez pas 


Savez-vous distinguer et utiliser adé- 
quatement les termes tels que ”’peux, 
peut, peu”, ou ’son, sont”, c’'est-à- 
dire des homonymes. Ce studiciel 
vous apprend à lever de telles ambi- 
guïtés, source de grossières fautes 
d'orthographe. Il conduit à une meil- 
leure maîtrise de la langue écrite. 


Diviseur, PGCD, PPCM 


Dans l'apprentissage des mathémati- 
ques, PGCD et PPCM sont deux 
verrous qu'il faut faire sauter. Dans 
ce studiciel, les nombres deviennent 
vivants : la dynamique même du tra- 
vail avec l'ordinateur vous guidera 
vers le succès. 


Cartouches TI 


Les quatre cartouches ci-dessous 
sont attendues pour la fin de l’année 
et devraient coûter environ 350 
francs pièce. 


Moonmine 


Echappez-vous dans l’espace et don- 
nez-vous des sueurs froides en vous 
retrouvant aux commandes d'un 
vaisseau lunaire. Votre mission 
consiste à récupérer des trésors ter- 
restres qui vous ont été dérobés par 
le fameux ‘’zigonaute” et ses amis. 
Le synthétiseur de parole vous per- 
mettra de profiter au mieux de ce 
jeu. 


Sneggit 


Vous désirez ramasser les œufs qui 
se trouvent dans votre poulailler. 
Malheureusement, celui-ci est soudai- 
nement envahi par des serpents qui 
dévorent ces œufs et s’attaquent à 
vous. Débrouillez-vous pour récupé- 
rer le plus grand nombre possible 
d'œufs. 


MASH 


Votre mission consiste à ramener au 
camp MASH 4077 des soldats bles- 
sés au cours d'une bataille. Il faut 
faire vite car ces blessés sont vrai- 
ment mal en point. Un aide vigilante 
vous aidera à optimiser votre score. 


Jawbreaker 


Cela n'a jamais été aussi amusant 
d'aller chez-le marchand de bon- 
bons, mais attention à l’arracheur de 
dents. 


Cartouches en 
co-édition 


Les cartouches décrites ici sont co- 
éditées par Texas Instruments et un 
autre éditeur. 


Budget familial 


Ce programme a été développé par 
TI en collaboration avec le groupe 
Expansion (co-éditeur) et Christiane 
Collange. Il permet de gérer les 
comptes d’une famille : pour cela, 
l'utilisateur peut définir jusqu'à 50 
catégories de revenus et dépenses. Il 
peut aussi contrôler chaque élément 
de revenu ou de dépense, et le 
comparer à ce qu'il avait initialement 
prévu et noté, à l’aide d’un tableau 
et d’un graphisme sophistiqués. Cette 
analyse peut se faire par mois, par 
catégorie, ou globalement. Les don- 
nées introduites par l'utilisateur peu- 
vent être mémorisées sur tout péri- 
phérique compatible avec le TI 
99/4A (magnétophone à cassette, 
lecteur de disquette..). L'utilisation 
de ce programme est extrêmement 
simple, les textes apparaissant sur 
l'écran étant rédigés en français. 
Prévu en fin d'année à 500 francs. 


TI-CALC 


Co-édité avec-Bond Associates Ltd et 
attendu en fin d'année à 500 francs, 
TI-CALC est une sorte de feuille de 
calcul électronique sous forme de 
cartouche. Ce programme fonctionne 
avec la console de base et peut utili- 
ser une cassette audio ou une dis- 
quette pour stocker des données. 


Il peut traiter 6000 éléments sur un 
nombre variable de colonnes et de 
lignes. Il comporte les fonctions clas- 
siques (insertion où suppression de 
lignes ou de colonnes, décomposition 
de l’écran...). Il permet d'effectuer de 
nombreux calculs et d'imprimer des 
rapports au choix de l'utilisateur. Il 
sera disponible en français, allemand 
et anglais. 


SCRABBLE 


Cette cartouche transforme votre TI 
99/4A en partenaire pour une partie 
de Scrabble ! Jusqu'à quatre joueurs 
(dont trois au maximum sont rempla- 
cés par l'ordinateur) peuvent prendre 
part à une partie. Le TI 99/4A de- 
vient alors un redoutable adversaire. 
Il connait plus de 7000 mots français 
avec, en outre, différentes variations. 
La version française du Scrabble est 
une exclusivité Texas Instruments. 
Prix : 350 francs, en fin d’année. 


TI-LOGO 2 


Ce langage, plus spécialement des- 
tiné aux enfants, permet de faire 
comprendre la philosophie informati- 
que tout en laissant à l’utilisateur la 
maîtrise de l'ordinateur. Il est basé 
sur le principe philosophique d’édu- 
cation (développé par Seymour Pa- 
pert et l’équipe du laboratoire d'’intel- 
ligence artificielle du MIT) qui crée 
un environnement informatique dans 
lequel les mathématiques et d’autres 


disciplines d’enseignement formel 
peuvent être apprises d’une manière 
naturelle. 


Ce sont en fait les utilisateurs qui en- 
seignent à l'ordinateur la manière de 
procéder. Par rapport au TI LOGO), 
le TI LOGO 2 dispose de capacités 
musicales, de lutins plus grands et 
d’une. capacité mémoire utilisateur 
double (16K). 


TI LOGO 2 nécessite l'extension mé- 
moire 32 K. La version française a 
été développée en collaboration avec 
des Professeurs des Universités Paris 
6 et Paris 7. Cette cartouche devrait 
être disponible à la date de parution 
de 99 magazine”, pour moins de 
1000 francs. 


Nouveaux accessoires 


Deux nouveaux accessoires sont à 
présent disponibles. Le magnéto- 
phone à cassettes Texas Instruments, 
avec câble de liaison incorporé et 
préréglage du volume et de la tona- 
lité est vendu environ 500 francs. 


Un modulateur SECAM adaptable 
sur tout téléviseur français est main- 
tenant commercialisé ; son prix pu- 
blic approximatif est de 600 francs. 


Publications en français 


De nombreux ouvrages en français 
sont à présent disponibles pour les 
utilisateurs du TI 99/4A. Nous ne 
manquerons pas de commencer à les 
analyser pour vous dès le numéro 
prochain. En voici la liste : 


e Pratique de l'ordinateur familial TI 
99/4A - Editions Radio 


e La découverte du TI 99/4A 
Editions du PSI 


Exercices pour le TI 99/4A 
Editions du PSI 


Le TI 99/4A à l'affiche 
Editions du PSI 


La conduite du TI 99/4A 
Editions Evrolles 


Jeux et programmes pour l’ordina- 
teur familial Texas Instruments - 
Shift Editions 


NDLR - Après vous avoir parlé de 
toutes ces cassettes et de toutes ces 
cartouches qui sont déjà sur le mar- 
ché ou vont y arriver dans un avenir 
proche, nous ne pouvons pas passer 
sous silence le fait que, comme vous 
avez déjà pu le constater, c’est certai- 
nement 99 magazine” qui offre le 
meilleur rapport performance/prix 
avec ses cassettes à 55 francs, et 
même à moins de 50 francs sur 
abonnement ! 
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Paire de manettes de jeu .... 255 
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De MONELRE ASS NS a QE UN 51 142 
Commande à levier (à l'unité) . 71 
Commande à clavier (à l'unité) 71 


LOGICIEL CARTOUCHE 
Star Räidérs: : 22 ace as soon 440 
Missile command ......... 390 
3DTicTac loc: se gs 390 
Centipède .............. 440 
PACNAN re enegaeé drone 440 
CASSETTES 
Répertoire d'adresse ...... 239 
Bah Jak. sue cvs tre 189 
GERPhSS ao ne rome 239 
Ministre de l'énergie ...... 189 
Centrale Nucléaire........ 239 
Limonade 21% 4 25080 sus 189 
Editeur de son ........... 239 
Générateur de caractères . .. 239 
Descente à ski ........... 239 
DISQUETTES 

Cavern of Mars .......... 390 
Limonddé 25: 23 cr 0 marrer 189 
AGSsras saut bre ee atat 239 
Questions et réponses. ..... 239 
Culture physique ......... 


Gestion de données 
Craphesilln cesse ge ous 
Agenda électronique 
Recettes et dépenses familiales 





Budget familial .......... 239 
Editeur de sons .......... 239 
Catalogue et disquettes .... 140 


Générateur de caractères . .. 239 
Générateur d'effets sonores . 239 


Descente à Ski ........... 239 
ANOQUE 6 cc desde ns 239 
SHARP 
POTQUZ à és doc ae 202 du 20 950 
Interface magneto CE 121 .. 147 
Imprimante CE 122 ....... 750 
BC EM ae ve maniere %0s 2.090 
Imprimante CE 150 ...... 1.800 
PC 1500 + CE 150...... 3.850 
Extension 8K CE 155 ...... 895 


Extension 16K CE 161. 1.880 
Extension 8K protégeable CE 159 
310 


Interface RS232C parallèle T900 


Cable imprimante ........ 690 
Clavier sensitif ......... 1.240 
PGI2S] esse von our sbure 1.390 
Imprimante CE 125 ...... 1.590 
CE 12 À cassette statistique. . 202 
CE 12Bingéniérie ........ 102 
CE 12C mathématique . .... 202 
CASIO 
ER 7O2P' sie vais es mode 1.050 
Interface magneto FA2 .... 260 
Imprimante FP 10......... 560: 
EXBOT Pme mones 2.750 
RBTO ES etre de 690 
Interface magneto FA 3 .... 245 
Imprimante FP 12......... 635 
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LE FUTUR EN MICRO 


BRANCHEZ-VOUS SUR 
INFORMATIQUE! 
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Nous sommes une association loi de 
1901 pour la formation dans la ré- 
gion de Toulon. Notre but étant de 
réaliser des montages pédagogiques, 
nous voudrions composer des titres à 
l’aide du TI-99 


Pour cela, nous souhaiterions savoir : 


- Quels programmes enregistrer pour 
composer des lettres majuscules ou 
des titres variés; 


- Comment connecter une sortie 
audio et vidéo que l’on peut bran- 
cher sur un magnétoscope. 


Christian Sagot 


La composition de titres n’est sans 
doute pas tout ce que vous attendez 
de votre TI-99. Cependant, cette 
question nous semble importante : il 
est en effet essentiel, surtout dans 
des applications de caractère pédago- 
gique, que la présentation soit impec- 
cable. 


Le moyen traditionnel pour compo- 
ser des gros caractères consiste à uti- 
liser l'instruction CALL CHAR(code, 


forme”). 


Le code est le code ASCII du carac- 
tère dont vous redéfinissez la forme 
(reportez-vous au manuel du Basic 
pour la liste de ces codes). 


La forme est le code hexadécimal 
des caractères binaires composant le 
dessin. 


L'instruction CALL CHAR est l’un 
des atouts majeurs du TI-99. Nous 
ne saurions en conséquence trop 
vous conseiller de rouvrir périodique- 
ment le manuel du Basic pour bien 
comprendre les principes de son 
fonctionnement. 


Un autre problème pouvant se poser 
est le suivant: comment éviter ce 
mouvement vers le haut lors de l’ap- 
parition de textes à l’écran ? 


Le petit programme ci-dessous résout 
cette question. Le principe en est très 
simple : lorsqu'un programme écrit 
en Basic simple commence à tour- 
ner, l'écran devient vert clair. Sauf 
ordre contraire (par l'instruction 
CALL SCREEN), il gardera cette 
couleur jusqu’à ce que l'application 
soit interrompue. 

190 CBLL ELERR 

119 6O0SUB 300 
129 PRINT * 
139 PRINT * 
140 PRIHT * 
150 PRINT * 
169 PRIKT UNE TOUCHE POUR FIRIR':: 
170 BOSUB 376 


ICI PREND PLACE LE TEXTE" 
QUE YOUS VOULEZ FAIRE" 
APPÉRAITRE AU NILTEU* 
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Courrier 


G CALL HEVIO,K,S 
6 1F S=0 THEN 180 


nf 
LE 
iv 


are 
289 
nQf 
29 R 


300 FOR SET=1 TO 18 


EE 


310 CAL COLORISET, Î, 11 
394 MEYT GET 


334 RETURN 


370 FOR SET=1 T0 18 
380 CALL COLOR(SET, 2,1) 
390 MENT SET 

300 RETURN 


Avant de composer un écran, nous 
faisons passer le programme par une 
routine de transparence : tous les ca- 
ractères deviennent verts sur fond 
vert; autrement dit, on ne les voit pas 
lorsqu'ils effectuent leur mouvement 
de montée (lignes 250 à 280). 


Nous donnons ensuite la série des 
ordres PRINT composant l'écran, 
puis nous envoyons le programme 
vers une autre routine qui modifie la 
couleur des caractères, par exemple 
en noir sur fond vert (lignes 320 à 
350). De cette manière, les caractè- 
res n'apparaissent à l'utilisateur 
qu’une fois qu’ils occupent leur place 
dans l'écran et on évite d'attraper le 
mal de mer en les regardant monter. 


L'écran que vous présenterez de 
cette manière peut être n'importe 
quoi : du texte, du dessin, des infor- 
mations chiffrées, etc. Mais cette 
nouvelle procédure oblige à adopter 
une nouvelle philosophie consistant à 
travailler par pages d'écran: lors- 
qu’un écran est utilisé, on l’efface par 
un CALL CLEAR, on envoie le pro- 
gramme à la procédure de transpa- 
rence, on compose le nouvel écran 
ét, enfin, on renvoie à la procédure 
de réapparition. 


Pour ce qui est de brancher votre 
écran avec un magnétoscope, il vau- 
drait mieux poser la question à un 
spécialiste de la vidéo. En revanche, 
si vous trouvez une solution simple 
pour réaliser cette connection, nom- 


des lecteurs 


bre de nos lecteurs seront intéressés. 
N'hésitez donc pas à nous l'envoyer. 


Bravo à tous pour votre magazine, il 
est vraiment très bien. Les ‘texans” 
(les utilisateurs de Texas ne sont-ils 
pas des texans ?) ont enfin leur ma- 
gazine. Ca fait plaisir de voir que l’on 
pense à nous. 


Je voudrais vous signaler quelques 
erreurs dans vos programmes : 


- Les Tours de Hanoï: la ligne 830 
passe très mal et lorsque l’on lance le 
programme, à la deuxième tentative 
de changement de disque, le pro- 
gramme refuse d’aller plus loin et se 
bloque sur cette ligne. Pourriez-vous 
m'indiquer la rectification à faire ? 


- Le Dernier Robot : cette fois, c’est 
au début que le programme se blo- 
que, précisément à la ligne 220. Et 
là, rien à faire : j'ai tout essayé, mais 
étant débutant, je n'ai pu voir le 
hic”. Pouvez-vous m'aider ? 


Laurent Pecheux 


Les listings que nous imprimons dans 
799” sont directement issus d’un TI- 
99 sur lequel ils ont tourné et tour- 
nent encore sans problème. Il serait 
peut-être intéressant que vous nous 
indiquiez la nature des messages 
d'erreur que vous obtenez. 


Sachez cependant que les numéros 
de lignes contenus dans les messages 
d'erreur ne sont pas forcément ceux 
où se situe l’erreur causant leur ap- 
parition. Une erreur peut très bien se 
situer ailleurs mais rendre impossible 
l'exécution d’une instruction ailleurs 
dans le programme. 


La relecture d’un programme est un 
travail délicat et d'autant plus fasti- 
dieux que ce programme est long. 
Nous vous conseillons vivement de 
vous faire aider d’un camarade ou 
d'un membre de votre famille pour 
le faire : vous relisez le programme à 
l'écran, à haute voix, pendant que 
votre collaborateur vérifie sur le lis- 
ting (celui qui est dans la revue, et 
non celui que vous pouvez avoir 
édité vous même). 


Nos programmes étant bons, nous 
ne voyons que cette solution pour 
vous aider. La solution la plus sûre 
consiste aussi à acquérir la cassette 
d'accompagnement de 799” que 
nous vendons à un prix défiant toute 
concurrence : tous ces programmes 
pour 55 FF! 
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99 Magazine s'adresse... 


…… aux débutants 


Vous venez d'acquérir un TI-99/4A. Tout est maintenant déballé et installé et vous êtes en train de découvrir 
qu’un ordinateur, ça ne marche pas tout seul... Il existe bien des brochures d'accompagnement, mais elles ne sont pas 
toujours rédigées de façon claire. En outre, le seul renseignement dont vous avez besoin en ce moment ne s’y trouve 
peut-être pas. 

799” vous apporte chaque trimestre de nombreux renseignements, des programmes complets, des exemples. 
Déjà, notre premier numéro comporte d'importants articles d'initiation au Basic ou de présentation de programmes. 

De plus, 99” édite avec chaque numéro une cassette regroupant tous les programmes du numéro: Vous 
pouvez ainsi utiliser des programmes que vous y avez vus, même si vous n’avez pas complètement compris le listing. 
En effet, vous savez bien utiliser des jeux ou des programmes de. gestion de fichiers sans pour autant être capables de 
comprendre intégralement le listing de ces programmes. 














.. aux habitués 


Malgré l'apparition récente du TI-99 sur le marché européen, vous êtes déjà nombreux qui, habitués, maîtrisez 
bien l’un des Basics. Nous analysons pour vous et testons les nouveaux produits, logiciels et matériels. Nous vous 
donnons des idées pour résoudre des problèmes qui vous tracassaient depuis longtemps. 


En étudiant les nombreux programmes que nous vous proposons, vous pourrez perfectionner votre connais- 
sance du Basic simple et du Basic Etendu mais aussi, à partir des prochains numéros, vous initier au Pascal et à 
l’assembleur. Dans pratiquement chaque numéro de 99”. vous trouverez des recettes ou des programmes pour mieux 
programmer et utiliser votre TI-99. 














.. aux experts 


Vous êtes déjà quelques-uns à mériter le titre d'experts. Chacun d’entre vous connaît plus particulièrement un 
langage ou un domaine d’application. 99”, en publiant les écrits d’autres experts, peut vous en apprendre plus, que 
ce soit dans votre domaine de prédilection ou dans d’autres domaines. 






.… à tous ses lecteurs 


Quel que soit votre niveau, vous pouvez avoir des informations, des idées ou des programmes à transmettre 
aux autres. Faites nous les parvenir'afin que nous puissions faire partager ce savoir que vous avez acquis. L'idéal est de 
nous envoyer une cassette avec vos programmes et un article dactvlographié. N'oubliez pas d'indiquer votre adresse et 


votre numéro de téléphone ! 
(2 )macazne 


BULLETIN D’ABONNEMENT 


Je désire recevoir pour le N° [°] de 99 magazine 
[_]le numéro avec cassette 9SFETIE 
[_]le numéro sans cassette .................. 40 F TTC 
F, Liscssile sole "2 55F FIC 


Je désire m'abonner pour 4 numéros 
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Ces tarifs comprennent l’envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 
Envoi par avion : nous consulter 


Envoyez ce bon de commande et votre règlement à : 


Editions MEV - 49 rue Lamartine - 78000 Versailles 
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È ratique de oser 
exas TI 99 - Niveau 2 
par B. Bonnel et C. Sapet) 

76 pages Format 21 x 29,7 Prix : 132 F port compris 
our exploiter toutes les possibilités 


TI: 99/4A, et de. Son Basic étendu 


50 programmes Ti 994A 





He pages Format 21 x29,7 Prix : 95 FE np compris 
50 programmes (finances, 
traitement de texte, couleurs a. 
_ Sons, jeux, maths) largement commentés 
et qui forment un véritable cours de 
À DRPnanen prose du TI-99/4A. 
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LincroyableTI1994A, 


un Ps pi pour 1800 francs 


Avec l'Ordinateur Familial TI 99/4A 
de Texas Instruments, vous allez pouvoir 
dialoguer dans pratiquement tous les 
domaines : de la programmation aux 
jeux, de l'éducation à la gestion privée. 
Actuellement, il existe une centaine 
de programmes tout faits, constamment 
renouvelés. Pour son prix, le TI 99/4A 
est tout à fait remarquable : 
e Le langage Basic est intégré dans la 
console. 
e À votre gré, vous pouvez également 
utiliser de nombreux autres langages de 
programmation : 
- L'Extended Basic, permettant le 
contrôle de lutins (des graphiques 
animés se superposant à la surface de 
l'écran), et l’accès à des fonctions et 
instructions supplémentaires. 
— Le TI Logo 2, maintenant en français 
avec ses fameux lutins, offre, par rapport 
au TI Logo 1, plus de mémoire 
disponible et l'accès au solfège. 


— L'Assembleur TMS 9900 qui permet 


d'exploiter au mieux le TI 99/4A. Avec 
le module “Mini Memory”, l'initiation à 
ce langage peut se faire simplement à 
l’aide de la version de base. 

— Le Pascal UCSD. 

Avec le TI 99/4A, vous pouvez 
toujours aller plus loin. Il possède un 
système d'extension périphérique très 
performant, qui peut contenir 7 périphé- 
riques différents. Ils ont tous leur 





Caractéristiques techniques 


CPU microprocesseur TMS 9900, 16 bits, 
(unité centrale) : plus 256 octets de mémoire de travail. 
Capacité 26K octets ROM interne; modules 
mémoire : d'application ROM externe jusqu’à 
36K octets chacun; 16K octets RAM 
interne extensible jusqu’à 52K octets. 
Clavier: clavier QWERTY à 48 touches, ver- 
rouillage alphabétique, répétition 
automatique et touches de fonctions. 
Générateur 5 octaves, 3 tons simultanés, géné- 
de son: rateur de bruit. 
Couleurs: 16 couleurs programmables pour le 
fond etles caractères haute définition. 
Interface: cassette, TV (péritel de série et 


SECAM en option), 2 manettes de 
jeux, bus de raccordement des péri- 








phériques. 





propre système opératoire. Leur adjonc- 
tion au T199/4A ne réduit pratiquement 
pas la mémoire utilisable. 

Les 7 périphériques : Extension 
mémoire 32 Ko - Interface RS 232 (série 
et parallèle) - Compilateur Code -P - 
Système de disquettes (90 Ko utiles par 
disquette, jusqu’à 3 unités de disquettes) 
- Magnétophone à cassettes - 
Synthétiseur de parole - Imprimante. 

En plus, vous pourrez profiter de la 
littérature spécialisée consacrée au 
T199/ 4A (livres et périodiques édités 
en français). 

Essayez-le, vous comprendrez 
pourquoi l'Ordinateur Familial 
T199/4A constitue le meilleur choix et 
s’est vendu à plus d’un million 
d'exemplaires dans le monde. 


TEXAS 
INSTRUMENTS 
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